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1, ABSTRACT 

t — 

r THE RM05/3/2 FORMATTER PROGRAM PROVIDES THE FACILITIES TO FORMAT. 

* ^0 CHECK THE HEADER AND DATA FIELDS OR VERIFY THE HEADER FIEiD OF 

7 EACH DATA BLOCK ON THE PACK. EACH HEADER FiElD SPECIFIES THE ADDRESS 

g OF ITS ASSOCIATED DATA BLOCK ON THE DISK PACK. 

-0 IN THE FOW-IAT OPERATION. THE PROGRAM WRITES THE HEADER OF EACH 

11 DATA BLOCK WITH A CYLINDER NUMBER. TRACK NUMBER AND SECTOR NUMBtR. 

13 ALSO. WRITES THE DATA FIELD WITH SELECTED DATA PATTERN. 

15 THE PROGRAM THEN VERIFIES THE WRITTEN DATA BLOCKS VIA EXECUTING THE 

-A "WRITE CHECK HEADER AND DATA" COMMAND. 

15 ■ THE PROGRAM THEN PERFORMS A VERIFY OF SECTOR ZERO. ON EACH OF 

16 THE TRACKS SELECTED FOR FORMATTING. THE VERIFY IS ACCOMPLISHED BY 

17 EXECUTING A "READ HEADER AND DATA" COMMAND AND COMPARING THE TWO 

18 HEADER WORDS TO AN EXPECTED VALUE. 
19 

PO IN THE VERIFY OPERATION. THE PROGRAM RtADS THE HEADER OF SECTOR 0 

21 THRU 29.(18 BIT MODE) OR 31. (16 BIT MODE) ON EACH CYLINDER AND 

22 TRACK TO BE VERIFIED. THEN COMPARES THE TWO HEADER WORDS TO MAKE 
25 SURE THEY ARE CORRECT. 

34 

11 2. REQUIREMENTS 

27 

2% 

29 2.1 EQUIPMENT 

30 

51 PDP-T1 PROCESSOR 
3^ 12K MEMORY 

35 KWn-L OR KWll-P CLOCK 

34 PROGRAM LOADING DEVICE 

35 TERMINAL 

36 RH11 OR RH70 CONTROLLER 

37 1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RM03'S OR RM02'S) 
38 

39 2.2 PRELIMINARY PROGRAMS 

40 

41 THERE ARE NO PREQUISITE PROGRAMS. PROVIDING THE RM SUBSYSTEM IS 

42 KNOWN TO BE OPERATIONAL. IF THE STATE OF THE RM SUBSYSTEM IS 

43 UNKNOWN. THE FOLLOWING PROGRAMS SHOULD BE RUN PRIOR TO USING THE 

44 FORMATTER PROGRAM. 
45 

46 RM05/3/2 DISKLESS TEST. PART 1 £ 2 
47 

48 RM05/3/2 FUNCTIONAL TEST. PAR' 1 

49 

50 

5T 3. LOADING PROCEDURES 

52 

54 5.' PAPER TAPE AND XXDP 

5^ 

56 THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSauTE 

57 LOADER OR IT MAY BE LOADED FROM 'XXDP* MEDIA USING THE APPRQPRIA^t 



S8 
59 
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LOADER. 
3.2 APT 



t', FOR OTHER INTERFACES. APT MAY ONLY LOAD AND START THE PROGRAM. 

^6 j.e. LOAD AND DUMP MODE. 

AUTOMATIC MODE (MONITOR) 

72 DEFAULTED. 

7^ DUMP MODE 

76 INPUT DIALOGUE AFTER P^OQhNA STARTS 

78 3,3 APT ETABLE DEFINITIONS 

80 THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING A«T 

81 JSvIRONMENTaC TABLE <E TABLE > ENTRIES. VIA RUNNING 
8? THE APT UTILITY PROGRAM "TSP : 

8'5 

84 1 SOFTWARE ENVIRONMENT: 
85 

86 - 1 IF APT SCRIPT MODE 

87 - 0 IF STANDLONE MODE 
88 

8V 2 ENVIRONMENT MODE: 
90 

91 BIT 7 = 1 ETABLE DOES SIZING 

3 0 PROGRAM DOES SIZING 

94 BIT 6 - 1 SPOOL MESSAGES TO APT IF SCRIPT MODE 

95 - 0 DON'T SPOOL ^0 APT 

97 BIT 5 = 1 SUPPRESS CONSOLE OUTPUT 

<?8 - 0 ALLOW CONSOLE OUTPUT 
99 

100 . BIT 4 TO BIT 0 ARE NOT USED 

102 3 SWITCH 1 (SOFTWARE SWITCH REGISTER) 

^S' IF ENVIRONMENT MODE BIT 7 (SIZ NG BIT ) IS SE T TO 1 . 

104 THE SOFTWARE SWITCH REGISTER WILL BE USED, IN^itMu 

105 OF THE HARDWARE CONSOLE SWITCH REGISTER. 
106 

107 ^ SWITCH 2 (USER SWITCH REGISTER) 

108 * NOT USED 
109 

MO 5 CPU OPTIONS 

111 ' NOT USED 

6. MEMORY TYPES 1-4 AND MAX ME-'ORY ADDRE^^fS 

' ]4 
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'"^ NOT USED 
- V 

•'7 7. INTERRUPT VECTOR 1: 

"8 usee WHEN £NV!RO»l«!ENT MODE BH 7 = l.-DE'AULT = 
,•9 

't'G 8. BUS PRIORITY 1 : 

1?1 NOT USED. 

V? 

V'. 9. INTERRUPT VECTOR ?: 

V4 NOT USED 

10. BUS PRIORITY 2: 

1^7 NOT USED 
128 

129 n. BASE ADDRESS: 

130 USED WHEN ENVIRONMENT MODE BIT 7 = 1 .-DEFAULT - 176700 

^V 

^32 12. DEVICE MAP: 

133 USED WHEN ENVIRONMENT MODE BIT 7 = 1. EACH BIT SET TO 

134 1 IN BITS 0 TO 7 WILL SELECT THE CORRESPONDING DRIVE 
155 TO BE TESTED. BITS 8-15 ARE NOT USED. 

136 

137 '3. CONTROLLER DESCRIPTOR WORDS: 

138 USED WHEN ENVIRONMENT MODE BIT 7 = 1. ANY NONE ZERO 

139 NUMBER SPECIFIES THAT PROGRAM RUNS IN CHECK MODE. 
UO 

U1 K. CONTROLLER DESCRIPTOR WORDS: 

U2 USED WHEN ENVIRONMENT MODE BIT 7 1 . ANY NONE ZERO 

U3 NUMBER SPECIFIES THAT PROGRAM SELECTS 30.(18 BIT MODE) 

UA SECTORS FOR A TRACK IN ALL OPERATIONS. 
US 

147 

148 A. STARTING PROCEDURES 



149 
150 

151 4.1 STARTING ADDRESSES 

152 

153 200 - START ADDRESi> IS DEFAULT. ALL SWITCHES CLEAR (SEE SECTION 5) 

154 

155 204 - RESTART ADDRESS. THE RESTART ADDRESS PROVIDES THE OPERATOR wITm 

156 THE ABILITY TO CHANGE THE DEFAJLT RM/RH ADDRESSES AND TO USE 

157 THE BAD SECTOR FILE UTILITY ROUTINES (SEE SECTION 9.1). 
158 

159 

160 ^.2 OPERATION ACTION 

16' 

162 1. LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3). 

163 

164 2. LOAD THE STARTING ADDRESS - 200 OR 204 

165 

166 3. SET THE SWITCHES AS REQUIRED AND PRESS 'START*. 

'67 

168 IF THIS IS THE PROGRAM'S FIRST START. THE STATUS Of THE DRIVES 

'69 ON THE SELECTED MASS8US SUBSYSTEM WILL BE TYPED OUT. THIS tyPEO(JT 

•^0 MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING SW<02>. 

1 /I 
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. TuE PROGRAM WILL THEN TYPE THE FOLLOWING l*£SSAG£ : 

•DO YOU WANT TO FORMAT (L) Y ?* 

ENTER THE APPROPRIATE CODE: 'V FOLLOWED BY CARRIAGE RET'JRN OR 
JUST CARRIAGE RETURN (DEFAULT) TO FORMAT I HEADER VERIFY. IF thF 
RESPONSE IS 'N* FOLLOWED BY CARRIAGE RETURN, THEN A VERIFY ONI ¥ 
MODE WILL BE ENTERED. 

. THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE : 

•DO YOU WANT 16 BIT MODE (L) Y ?• 

ENTER THE APPROPRIATE CHARACTER: •Y^ FOLLOWED BY A CARRIAGE RE ^ jRN 
OR JUST A CARRIAGE RETURN (DEFAULT) FOR 16 BIT MODE. IF THE 
RESPONSE IS 'N' FOLLOWED BY A CARRIAGE RETURN, THEN ENTER 18 BIT 
MODE. 

. THE PROGRAM WILL THEN ASK FOR A DRIVE: 
•DRIVE: ' 

ENTER THE ADDRESS OF THE DRIVE TO BE FORMATTED. ENTER THE DRIVE 
NUMBER FOLLOWED BY A CARRIAGE RETURN. IF THE DRIVE SELECTED IS NOT 
AVAILABLE. THE PROGRAM WILL TYPE AN ERROR MESSAGE AND RETURN TO 
THE DRIVE ADDRESS REQUEST. 

NOTE: IT NOT POSSIBLE TO ENTFR A MULT-DRIVE ENTRY FOR THIS PROMPT. 
THE ONLY WAY ALL THE DRIVES CAN BE FORMATTED, IS TO SETUP A CHAIN 
TO RUN THIS PROGRAM. 

AFTER THE OPERATOR HAS SELECTED A DRIVE, THE OPERATOR WILL BE 
ASKED TO CHANGE THE DRIVE PARAMETERS WITH THE FOLLOWING PROMPT: 

•CHANGE DRIVE PARAMETERS (L) N 1' 

IF THE ENTRY IS A 'N* FOLLOWED BY A CARRIAGE RETURN OR JUST A 
CARRIAGE RETURN (DEFAULT). THE PROGRAM WILL NOT ALLOW ANY DRIVE 
PARAMETERS TO BE CHANGED AND WILL PROCEED TO TEST THE DRIVES AS 
rQMMANDED. IF THE ENTRY IS A •Y" FOLLOWED BY CARRIAGE RETURN, 
THE OPERATOR WILL BE ALLOWED TO CHANGE THE DRIVE PARAMETERS AS 
FOLLOWS. 

THE PROGRAM WILL ASK FOR ADDRESS LIMITS FOR THE SELECTED DRIVE: 

'ENTER ADDRESS LIMITS: ' 

THE PREVIOUSLY SELECTED OR DEFAULT VALUES FOR BEGINNING CYLINDER 
AND TRACK AND FOR ENDING CYLINDER AND TRACK WILL BE TYPED OUT. 
IF A 'CARRIAGE RETURN' IS TYPED AS A RESPONSE, THE PRESENT VALUE 
WILL BE USED; IF A •PERIOD^ IS TYPED. THE PROGRAM WILL BYPASS 
THE REMAINING ENTRIES AND WILL USE THEIR PRESENT VALUES. 

NOTE: THAT THE CYLINDER AND TRACK VALUES ARE DECIMAL NUMBERS. 
THE ADDRESS SPECIFIED BY THE BEGINNING TRACK MUST BE LESS THAN 
ThE ENDING TRACK ADDRESS IF THESE TWO ADDRESSES ARE ON THE SAMi 
CYLINDER. ON THE OTHER HAND. THE ENDING CYLINDER ADDRESS MA* 
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?50 
?51 
?52 
??5 
?54 
?35 
?56 
237 
:'38 
259 

241 
242 
245 
244 
245 
246 
247 
248 
249 
250 
251 
252 
255 
254 
255 
256 
257 
258 
259 
260 
261 
262 
265 
264 
265 
266 
267 
268 
269 
270 
271 
272 
275 
274 
275 
276 
277 
278 
279 
280 
281 
282 
285 
284 
/85 



9. 



BE LESS THAN THE STARTING CYLINDER ADDRESS. IN THIS CASE. Inf 
PROGRAM WILL FORMAT OR VERIFY THE DISK PACK FROM Ine STARTING 
CYLINDER TO CYLINDER 822 AND THEN FROM CYLINDER 0 TO THE ENDING 
CYLINDER. 



THE PROGRAM WILL THEN TYPE: 
'STARTING FORMAT* 



OR 



•STARTING HEADER VERIFY' 



10. 



11 



NOTE: IF A NEW PACK IS UNFORMATTED. THE PROGRAM ALSO ASKS YOU TO 
ENTER TWO SERIAL NUMBERS. (EXCEPT 1^ OPERATING IN VERIFY ONLY 
MODE) THESE TWO SERIAL NUMBER MUST BE NON-ZERO DECIMAL NUMBERS. 

THE OPERATOR CAN DETERMINE WHERE THE DRIVE IS DURING THE OPERATION 
BY TYPING A 'CONTROL 0'. THE PROGRAM WILL TYPE THE FOLLOWING 
MESSAGE: 

'PRESENT ADDRESS IS: CXXX TXX' 

TO CHANGE EITHER THE ADDRESSING MODE OR THE OPERATION MODE. THE 
PROGRAM MUST BE STARTED FROM LOCATION 200 OR 204 AGAIN, 



4,3 RH11 - RH70 UNI8US ADDRESS 

THE PROGRAM ASSUMES THAT THE RHi 1 OR RH70 ADDRESSES START AT 
176700 AND THAT THE VECTOR ADDRESS IS 254, THESE ADDRESSES MAY 
BE CHANGED WHEN THE PROGRAM IS STARTED FROM LOCATION 204. 
ENTER THE RH11/RH7C ADDRESS IN RESPONSE TO THE REQUEST FROM THE 
PROGRAM, 



SWITCH REGISTER SETTINGS 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR THE PROGRAM 
WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT 
AND WILL USE A 'SOFTWARE' SWITCH REGISTER, THE 'SOFTWARE' SWITCH 
REGISTER IS LOCATED AT LOCATION 176 , THE SETTINGS OF THE 'SOFTWARE' 
SWITCHES ARE CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH IS CALLED 
BY TYPING A 'CONTROl G'. THE PROGRAM WILL RECOGNIZE THE 'CONTROL G' 
AT ANY TIME EXCEPT WHEN THE PROGRAM IS IN KEYBOARD ENTRY MODE. OR 
IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE 'SOFTWARE' 
SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE 
PROMPT FROM THE SWITCH ENTRY ROUTINE: 



'SWR = NNNNNN 



NEW 



EACH TIME SWITCH SETTINGS ARE ENTERED. THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED, LEADING ZEROS ARE NOT REQUIRED. 'RUBOUT* 
AND 'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING 
SWnCH ENTRY. 



>38 

. ^1 

*>92 

?93 

294. 

^95 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

5U 
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320 

321 

322 
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331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 



ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE' SwITfM 
REGISTER MAV BE USED. IF THE PROGRAM FINDS ALL 1'S IN THf SWlTfMfS. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FQLLOWfD. 



HALT ON ERROR 
INHIBIT ERROR TVPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 

DON'T DISPLAY SYSTEM STATUS AFTER INITIAL SURT 

LOOP ON THF CURRENT TRACK 

LOOP THE PROGRAM ON THE SELECTED DRIVE 



SW<15>=1 
SW<13>=1 
SW<10>=1 
SW<09> 1 
SW<02>-1 
SW<01>=1 
SW<00>-1 



ERROR MESSAGES 



1. 'RH INTERRUPT OCCURRED (RMAS-O) - AN INTFRRbPT OCCURRED. BUT 
NOTHING ON THE MASS8US IS INDICATING AN ATTENTION. 

2. 'UNEXPECTED ATTENTION OCCURRED' - THE INDICATED DRIVE INTERRUPTED, 
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE. 

3. 'MASS8US PARITY ERROR (MCPE=1) ' - A CONTROL BUS PARITY ERROR 
WAS DETECTED BY THE RH WHEN THE INDICATED REGISTER WAS READ. 

U. "MASSeuS PARITY ERROR (PAR=1) ' - A CONTROL BUS PARITY ERROR 
OCCURRED WHEN THE INDICATED REGISTER WAS WRITTEN. 

5. 'ADDRESS PLUG CHANGE BIT SET' - THE PROGRAM FOUND THE 'OPE' 
BIT SET FOR THE INDICATED DRIVE. 

6. 'RH DIDN'T RESPOND TO ADDRESSING' - THE PROGRAM ACCESSED THE 
RH AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE. 

7. 'DRIVE OFFLINE' - THE INDICATED DRIVE HAS GONE OFFLINE 

8. 'PERSISTENT DRIVE UNSAFE ERROR' - THE INDICATED DRIVE HAS BECOME 
UNSAFE AND THE CONDITION CANNOT BE CLEARED BY ISSUING 'DRIVE 
CLEAR' INSTRUCTIONS. 

9. 'UNCORRECTABLE MASS8US PARITY ERROR' - THE PROGRAM ATTEMPTED 

TO PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASbBUS PARITv 
ERRORS OR THE PROGRAM ATTEMPTED TO CLEAR A 'PAR' ERROR IN THE 
DRIVE AND A PARITY ERROR OCCURRED. 

10. 'SOFTWARE TIMEOUI* - THE OPERATION FAILED TO COMPLETE WITHIN 
1 SECOND. 

11. 'DRIVE UNSAFE ERROR' - A NON-PERSISTENT UNSAFE ERROR CCURRED 
DURING THE OPERATION. 

12. 'CONTROLLER/DRIVE ERROR DURING WRITE' - THE INDICATED NON-DA^A 
ERROR WAS DETECTED DURING A FORMAT OPERATION. 
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13. 'CONTROLLER/DRIVE ERROR DURING WRITE CMECf - A NON-PAIA ifttk.th 

^5 OCCURRED DURING THE WRITE CHECK. 

147 U. 'DATA ERROR DURING WRITE CHECK' - A DATA RELATED ERROR OUUW»fD 

Vio DURING A WRITE CHECK OPERATION. A DATA ERROR IS CON'ilDFRfD 

i7q TO BE ONE OF THE FOLLOWING ERRORS: 'DCK', 'OPr. 'OU'. 'h'I 

350 'HCE'. OR 'FER'. 

l\l 15. 'RETRIcS NOT SUCESSFUL - SECTOR NOT ACCEPTABLE* - THf IND.'.'ATf- 

353 SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR. 

Tcc 16. 'CONTROLLER/DRIVE ERROR VERIFYING HEADERS' - AN ERROR OCfjRRfD UJRIV. 

m THE VERIFICATION PASS AFTER FORMATTING. 

Ill 17. "HCE* ERROR VERIFYING HEADERS' - A HEmDER ERROR OCCURRED DURING 

359 THE VERIFICATION PASS AFTER FORMATTING. 

36? 18. 'CYLINDER FIELD IN HEADER IS NOT CORRECT' - THE CYLINDER FIELD 

362 PROM A HEADER READ DURING THE VERIFICATION PASS IS NOT CORRECT. 

364 19. 'TRACK/SECTOR FIELD IN HEADER IS NOT CORRECT' - THE TRACK AND 

365 SECTOR FIELD FROM A HEADER READ DURING THE VERIFICATION IS NOT 

366 CORRECT. 

568 20. 'WRITE CHECK ERROR' - ^HE RH REPORTED A WRITE CHECK ERROR AND 

369 NO DRIVE ERRORS WERE SET. 

370 

371 

372 

373 7. m:scellaneous 

3/6 7.' format time 

378 the 'format' mode will take approx. 10 minutes for an entire rm03/2 

379 and approx. 30 minutes for an entire rm05. 

zan 

381 THE 'VERIFY' ONLY MODE TAKES APPROX. 7 MINUTES FOR AN RM03/2 AND 

582 APPROX. 20 MINUTES FOR RM05. 

383 

384 

5^5 7.2 HALTING THE PROGRAM 

387 THE OPERATOR SHOULD NOT HALT THE PROGRAM VIA THE CONSOLE DURING A 

388 FORMAT OPERATION. HALTING THE PROGRAM MAY LEAVE A SECTOR INCORRECTLY 
^9 FORMATTED. TO TERMINATE THE FORMAT. TYPE A 'CONTROL C. 

390 

391 7.3 SURFACE VERIFICATION 
39P 

393 THE FORMATTER PROGR.AM IS NOT INTENDED TO BE USED TO PERFORM DISK 

394 PACK VERIFICATION. IF THE PROGRAM REPORTS A SECTOR AS BEING 'NOT 

595 ACCEPTABLE', THIS MAY IN FACT INDICATE A BAD SURFACE; HOWEVER, 

596 SECTORS WHICH 'PASSED' MAY OR MAY NOT BE GOOD. 
597 

398 
399 
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8.1 FORMAT OPERATION 

THE PROGRAM FORMATS THE PACK ONE TRACK AT A TIME BETWEEN THE LIMITS 
SPECIFIED BY THE OPERATOR. 

THE PACK IS WRITTEN WITH A "WORST CASE* DATA PATTERN, WHICH IS A OCTAL 
NUMBER 155555. FOLLOWED BY AN OCTAL NUMBER OF 133333. 

THE FORMAT OPERATION CONSISTS OF A WRITE HEADER AND DATA CCWIAND fOR 

THE ENTIRE TRACK FOLLOWED BY A WRITE CHECK HEADER AND DATA COMMAND. 

IF AN ERROR OCCURS DURING THE WRITE. THE PROGRAM WILL RETRY THE 

WRITE BEFORE CONTINUING. IF A DATA RELATED ERROR IS DETECTED 

DURING THE WRITE CHECK (A DATA ERROR IS DEFINED AS ONE OF 

THE FOLLOWING ERRORS: 'DCK'. 'OPI'. 'DTE*. 'HCRC. 'HCE*. 

OR 'FER'). THE SECTOR IN ERROR WILL BE REWRITTEN. THE PROGRAM WILL 

CHECK THE SECTOR TWICE; IF A DATA ERROR IS DETECTED IN THE SECTOR 

DURING EITHER OF THE WRITE CHECKS. THE PROGRAM WILL DECLARE 

THE SECTOR AS BEING 'NONRECOVERABLE ' . FOLLOWING THIS SEQUENCE, 

THE REMAINDER OF THE TRACK IS CHECKED. IF DATA ERRORS ARE ENCOUNTERED 

IN ANY OF THE REMAINING SECTORS, EACH SECTOR WILl BE HANDLED AS 

DESCRIBED ABOVE. 

IF A NON-DATA RELATED ERROR OCCURS DURING THE WRITE CHECK. THE 
P-^OGRAM WILL RETRY THE COMMAND FOR THE ENTIRE TRACK BEFORE PROCEEDING 
TO THE NEXT TRACK. 

IT SHOULD BE NOTED THAT THE FORMATTER PROGRAM FORMATS THE PACK ONLY 
AND IS NOT DIRECTLY VERIFYING THE SURFACE OF THE PACK. ERRORS 
THAT ARE ENCOUNTERED MAY BE THE RESULT OF BAD AREAS ON THE PACK 
BUT. AS THE PROGRAM IS NOT DESIGNED TO PERFORM AN EXHAUSTIVE CHECK 
OF THE DISK PACK SURFACE. THE PROGRAM CANNOT MAKE THIS CONCLUSION. 
IN GENERAL, HOWEVER, THE OPERATOR CAN ASSUME THAT SECTORS WHICH 
THE PROGRAM CALLS 'UNACCEPTABLE' INDICATE BAD AREAS OF THE PACK; 
UNFORTUNATELY, SECTORS WHICH 'PASS' CANNOT BE ASSUMED TO BE GOOD. 

DURING THE FORMAT OPERATION. THE PROGRAM FILLS THE DATA FIELD 
WITH THE PATTERN SELECTED BY THE OPERATOR. 

8.2 POSITIONER VERIFICATION (QUICK VERIFY) 

AFTER THE PROGRAM CCWLETES THE FORMAT OPERATION. THE 
POSITIONER IS RETURNED TO THE STARTING CYLINDER AND THE HEADER 
FROM SECTOR 0 ON THE STARTING TRACK IS READ. THE CYLINDER ADDRESS 
FIELD FROM THE HEADER IS COMPARED TO THE REQUESTED CYLINDER; IF 
THE CYLINDER ADDRESSES DO NOT COMPARE. AN ERROR MESSAGE IS TYPED. 
THE PROGRAM CHECKS THE CYLINDER ADDRESS FIELD FROM THE HEADER 
OF SECTOR 0 ON THE BEGINNING TRACK OF EACH CYLINDER FORMATTED. 
THIS CHECK IS PERFORMED TO CONFIRM THAT THE DISK'S POSITIONER 
ADVANCED PROPERLY DURING THE FORMAT OPERATION. 

8.3 HEADER VERIFICATION (VERIFY ONLY) 

THE HEADER VERIFICATION OPERATION PERFORMS A READ HEADER AND DATA 
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TO AN ENTIRE TRACK AT A TIME. THEN COMPARES THE EXrECIED HEADER 

i.Sf WORDS WITH RECIEVED HEADER WORDS. THE CVLINDER ADDRESS FIELD FROM 'Hi 

HEADER IS COMPARED TO THE EXPECTED CVLINDER. IF THE CYLINDER ADDRFSSt 

460 DO NOT COMPARE. AN ERROR MESSAGE IS REPORTED. NEXT. THE TRACK/SECTOR 

FIELD FROM THE HEADER IS COMPARED TO THE EXPECTED TRACK/SECTOR. IF 

THE TRACK/SECTOR ADDRESSES DO NOT COMPARE, AN ERROR IS REPORTED. 

465 VERIFICATION OF THE HEADERS STARTS FROM SECTOR 0 ON THE BEGINNING 

CVLINDER AND TRACK. AND CONTINUES UNTIL COMPARING SECTOR ?9.(18 BIT 

465 MODE) OR 31. (16 BIT MODE) ON ENDING CVLINDER AND TRACK. THIS CHECK 

466 IS PERFORMCD TO CONFIRM THAT A DISK HAS PREVIOUSLV BEEN FORMATTED 
46'' AND ALL THE HEADERS ARE IN GOOD CONDITION. 

4o8 
469 

470 9. BAD SECTOR FILE DESCRIPTION 

471 

472 

473 SECTORS 0 THRU 31.. ON CYLINDER 822.. LAST TRACK ARE ALWAVS FORMATTED 

474 IN 16 BIT MODE. THEY CONTAIN THE BAD SECTOR FILE ON THE PACK FOR BOTH 

475 30. SECTORdS BIT MODE) AND 32. SECT0R(16 BIT MODE) OPERATIONS. 
476 

477 THE DATA FIELD OF EACH SECTOR OF THE BAD SECTOR FILE IS DESCRIPTED 

478 BELOW: 
479 

480 THE FIRST TWO WORDS IN THE DATA FIELD SPECIFY THE SERIAL NUMBER OF 

481 THE PACK. THE SERIAL NUMBER MUST BE A NON-ZERO NUMBER AND CONSISTS 

482 OF MAXIMUM 10 OCTAL DIGITS. THE FIRST WORD OF THE SERIAL NUMBER 

485 CONTAINS THE 5 LEAST SIGNIFICANT OCTAL DIGITS. WHILE THE SECOND WORD 
484 CONTAINS THE 5 MOST SIGNIFICA^JT DIGITS. 

485 

486 THE THIRD WORD IS ALWAYS ALL O'S. 
487 

488 THE FORTH WORD IS USUALLY ALL O'S. UNLESS THE PACK IS AN ALIGNMENT 

489 PACK, IN WHICH CASE THE WORD WILL BE }77777. 
490 

491 THE FOLLOWING 252. WORDS DEFINE THE BAD SECTOR ADDRESS INFORMATION. 

492 TWO WORDS ARE USED TO DEFINE A SINGLE BAD SECTOR. THE FIRST WORD CF 
«,93 THE PAIR. SPECIFIES THE CVLINDER ADDRESS. THE SECOND WORD OF THE PAIR. 

494 SPECIFIES THE TRACK (HIGH BYTE) AND SECTOR (LOW BYTE) ADDRESSES. ALL 

495 UNUSED LOCATIONS ARE RECORDED WITH ONES n77777) . 
496 

497 THE SECTORS ON THE LAST TRACK (8SF) ARE DIVIDED INTO FOUR GROUPS AS 

498 FOLLOWS: 
499 

500 (1) SECTORS 0. 2. 4. 6 AND 8. CONTAIN THE MANUFACTURES (MFG) DEFINED 

501 BAD SECTORS FOR 16 BIT MODE. 
502 

505 (2) SECTORS 1. 3. 5. 7 AND 9. CON '-.IN THE MANUFACTURES (MFG) DEFINED 
504 BAD SECTORS FOR 18 BIT MODE. 

505 

506 (3) SECTORS 10.. 12. THRU 30. CONTAIN THE USER (USR) DEFINED BAD 

507 SECTORS FOR 16 BH MODE. 
SOS 

509 (4) SECTORi 11.. 13. THRU 31. CONTAIN THE USER (USR) DEFINED BAD 
5'0 SECTORS FOR 18 BIT MODE. 

Ml 

THE SECTORS IN EACH GROUP ARE IDENTICAL AND SECTORS 0. 1. '0. AND H. 

V< ARE USED AS REFERENCE SECTORS BY THE PROGRAM. 
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51S 

516 9.1 BAD SECTOR UTILITY 

y. 7 

SIR THE PROGRAM PROVIDES A FEW uTlLlTr ROUTINES TO HAMDLE THE BAD 

519 SECTOR FILE. TO ACCESS THESE ROUTINES START THE PROGRAM AT 20^. 
520 

521 BEFORE THE PROGRAM FORMATS THE PACK. THE PROGRAM TrPES THE FOLLOWING 

5P2 MESSAGE TO ALLOW THE OPERATOR TO ACCESS THE UTILITIES BY ENTERING 

^,23 THE SELECTLD FUNCTION NUMBER. 

lil UPDATE 'USR* BAD SECTORS 0 

527 PRINT 'MFG* BAD SECTORS 1 

528 PRINT 'USR- BAD SECTORS 2 

529 INITIALIZE 'USR' BAD SECTOR FILE 3 

530 PRINT A SECTOR OF THE LAST TRACK 4 

531 PRINT THIS MESSAGE 5 

552 CONTINUE <CR> 

lil ENTER UTILITY FUNCTION (HELP=5): 

535 

536 

537 THE FIRST UTII ITY (0) ALLOWS USER DEFINED BAD SECTORS TO BE ENTERED 

538 MANUALLY INTO THE 'USR* BAD SECTOR FILE TABLE. THIS IS ACCOMPLISHED 

539 BY SPEClfING THE CYLINDER ADDRESS, TRACK ADDRESS AND SECTOR ADDRESS 
5iO IN DECIMAL. TO THE FOLLOWING PROMPT. 

5A1 

542 EXAMPLE: CYL.TRK.SEC= C.T.S<CR> ."ENTERS BAD CYL.TRK.SFC IN FILE 

543 CYL.TRK.SEC= <CR> ;EXIT 

54,1, TO TERMINATE THE BAD SECTOR ADDRESS ENTRY. TYPE A 'CARRIAGE RETURN' 

546 IN RESPONSE TO THE ENTRY REQUEST. 

547 

548 

549 THE SECOND (1) AND THIRD (2) UTILITIES WILL TYPE THE CONTENTS OF THE 

550 'MFG* AND 'USR' BAD SECTOR FILES ON THE CONSOLE IN DECIMAL NUMBER. 

551 THE FORMAT OF THE TYPEOUT WILL BE AS FOLLOWS; 
552 

553 PACK S/N: XXXXXX 
554 

555 CONTENTS OF 16 BI^ "MFG OR USR" BAD "^"CTOR FILE (DECIMAL) 

556 C.T.S 
557 

558 CONTENTS OF 18 BIT 'MFG OR USR' BAD SfcL OR FILE (DECIMAL) 

559 C.T.S 
560 

561 WHERE 'XXXXXX' IS THE OCTAi SERIAL NUMBER OF THE PACK. WHERE 'C 

562 IS THE DECIMAL CYLINDER ADDRESS. 'T' IS THE DECIMAL Tt^ACK ADDRESS. 
565 WD 'S' IS DECIMAL SECTOR OF THE BAD SECTOR. IF THERE ARE NO ENTRIES 

564 CURRENTLY IN THE BAD SECTOR FILES. THE FOLLOWING TYPEOUT WILL 

565 APPEAR; 
566 

567 PACK S/N: XXXXXX 

568 

569 CONTENTS OF 16 BIT 'MFG OR USR* BAD SECTOR FILE (DECIMAL) 

570 • NO ENTRIES • 
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CONTENTS OF 18 BIT 'MFG OR USR' BAD SECTOR FILE (DECIMAL) 

\/l • NO ENTRIES • 
574 

111 THE FOURTH (3) UTILITY WILL RESET ALL BAD SECTOR ENTRIES IN THE 

K% 'USR' BAD SECTOR FILE TO -1. THE SERIAL NUMBER WILL NOI BE INITIALIZED 

578 BY THIS UTILITY. 

579 

51? THE FIFTH (4) UTILITY WILL ALLOW THE OPERATOR TO LOOK AT A SECTOR 

11, OF DATA FROM THE LAST TRACK ON THE LAST CYLINDER (BAD SECTOR FILE). 

lt% THIS WILL ALLOW THE OPERATOR TO PHYSICALLY SEE WHAT IS IN THE BAD 

SECTOR FILE. THE DATA IS TYPED OUT IN BLOCK FORM IN OCTAL. 

585 

TYPING A '5' WILL ALLOW THE OPERATOR TO DISPLAY THE UTILITY MESSAGE 

coo AGAIN ON THE CONSOLE. TO CONTINUE THE PROGRAM OPERATION. JUST TYPE 

589 A "CARRIAGE RETURN" <CR>. 

590 

592 10.1 RH/RM DRIVER 

593 

ll\ THIS DOCUMENT IS THE USER'S GUIDE FOR THE RH/RM DRIVER. 

596 
597 

598 10.2 TO INITIALIZE THE DRIVER: 

600 JSR PC.RMINIT 
601 



615 



6?5 
t?7 



RETURN 



i?i UPON RETURN YOU MUST EXAMINE THE "DRVSTA" TABLE TO DETERMINE 

Si THE DRIVES THAT ARE ONLINE FOR TESTING. THE 'DRVSTA' TABLE IS 



EIGHT BYTES; ONE BYTE PER DRIVE. THE STATE OF EACH DRIVE WILL 
ATED AS FOLLOWS: 

DRVSTA DRIVE STATE 



^ BE INDICATED AS FOLLOWS: 

607 
608 

609 

J) 9 >0 ONLINE 

X p 0 OFFLINE. DRIVE 

?\% IS NOT AN RM05/3/2. OR 

g ? NONEXISTENT DRIVE 



<0 UNSAFE 



THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED 'DRVTYP' 
THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THt 
Jl9 DRIVE NUf^ER. ENTRIES ARE ENCODED AS FOLLOWS: 

Jl? DRVTYP CONDITION 

62^ 



0 NONEXISTENT DRIVE 

4 RM05 

5 RM02 
7 RM05 



/RMibO PrW05/^/? FORMAT 'E»» 



b2^ 

650 

65' 

653 

635 

65A 

655 

656 

657 

658 

659 

640 

6A1 

6^2 

6^5 

6A<> 

645 

646 

647 

648 

649 

650 

651 

652 

655 

654 

655 

656 

657 

658 

659 

660 

661 

662 

665 

664 

665 

666 

667 

668 

669 

670 

671 

672 

675 

674 

675 

676 

677 

678 

679 

680 

681 

682 

685 

684 
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&£0 ft>14 



'0.5 



-1 WT AN R«05/5/c 

TH6 'WINIT* ROUTINE WILL DO A READIN PRESET AND ylLl SET rMT16. 

AFTER THE DRIVER HAS BEErj INITJALIZED. JT IS CALLED USING THE 
FOLLOWING SEQUENCE. 



CALL: 



jSR 

PN'DPB 

RETURNI 

RETURN2 



R0.RM05 



;MAKF THE CALL 
.•ADDRESS or DF«« 
.•RETURN IF QUEUE IS FULL 
.RETURN IF REQUEST IS IN 
.-QUEUE OR THERE IS AN 
; ERROR CONDITION 



•DPS (DATA PARAMETER BLOCK) 



F>NTDP8: .8YTE 
.erTE 
.8YTE 
.8YTE 
.WORD 
.WORD 

.8YTF 

.8YTE 



10.4 



0 ;(0) DRIVE NUMBER 

0 ;(1) OFFSET VALUE OR FMT16, ECT, AND HCl 

0 ;(2) COMMAND 

0 ;(3) PSEL AND A17 AND Al6 

0 WORD COUNT (MUST BE NEG.) 

0 .-(6) BUFFER ADDRESS OR 

.•REGISTER TABLE POINTER 
0 ;(10) SECTOR ADDRESS OR 

.-FIRST REG. INDEX 
0 ;(11) TRACK ADL/RESS OR 

.-LAST REG. INDEX 
.WORD 0 .-(12) CYLINDER ADDRESS 

.WORD 0 ;(K) ERROR TABLE POINTER 

.-POINTS TO THE FIRST OF TWENTY 
.-LOCATIONS OF WHERE THE DRIVER 
;IS TO STORE THE RH/RM 
.-REGISTERS ON AN ERROR. IF LEFT 
.-ZERO REGISTERS ARE NOT SAVED. 
.WORD C ;(16) STATUS/ERROR INDICATOR 

.-8IT15=1->ERR0R OCCURRED 
;8IT07-1->D0NE 

;8IT1A-BIT09 AND BIT06HBITC3 
.-INDICATE TYPE OF ERROR 

THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY. 

TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE 'KM TIMER" ROUTINE 

WITH THE ELAPSED TIME IN THE FOLLOWING MANNER: 



MOV *16..-(SP) 
JSR PC.RMTMR 



;16 MILLISECONDS BETWEEN 
CLOCK TICKS 

CALL THE TIMER ROUTINE 



THE 



IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE 
CLOCK. AND THE ELAPSED TIME MUST BE IN MILLISECONDS. 
THE DRIVER WILL SET THE TIMEOUT TQ 1 SECOND FOR ALL POSITIONING 
AND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 50 
SECONDS FOR ERROR RECOVERY OPERATIONS. 

10.4. 1 EXAMPIE - WRITE 1000. WORDS 
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SEO 001 -> 



638 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

70C 

705 

706 

707 

708 

709 

710 

711 

712 

713 

7U 

715 

716 

717 

^18 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

750 

731 

732 

73? 

734 

735 

736 

757 

738 

'39 

74G 

^4' 



1»: 
2$: 



JSA 

fHTDPB 
BR 

TST 
BEQ 

ani 



FMTDP8: .8YTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.WORD 
.BYTE 
•BYTE 
.WORD 
.WORD 
.WORD 



R0.RM03 
1$ 

f«TDP6*16 
2$ 

ERR0R1 



5 
0 

161 

0 

-1000, 
WRT8UF 
3 
5 

400 

ERRTB5 

0 



ALTERNATE DP8 SETUP 



FMTDP8: .WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.WORD 



5 

WRITE 
-1000. 
WRTBUF 
3.5 

400,ERRT85.0 



10. S RH/RM REGISTERS 
MNEI>10NIC 



RMCS1 

mjc 

RMBA 
RMDA 
RMCS2 
RMOS 

wnERi 

RMAS 
RMtA 
RMD8 

rmd: 

RMSN 

RMOF 

RMDC 

RUHR 

Rff1R2 

RMER2 

RMEn 

R(«EC2 



CAlL THE DRIVER 
DP8 ADDRESS 

WAIT fOR QltEUE IF FULL 

WAIT FOR COFWAND TO COHPlETE 

; ERROR OCCURRED 



DRIVE »5 

WRITE C0M>1AND 

WORD COUNT 
BUFFER ADDRESS 
SECTOR 
TRACK 
CYLINDER 
ERROR TABLE 

STATUS/ERROR INDICATOR 



THIS SETUP ACHIEVED 
EVERYTHING THE 
ABOVE TABLE DID, BUT 
IN A CLEANER FORMAT 



INDEX 



0 
2 
4 
6 
10 
12 
14 
16 
20 
22 
24 
26 
30 
32 
3*^ 
56 
40 
42 
44 
46 
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10.6 CQWANDS PfRFQimED 6V THE DRIVER 


744 




^45 


COI>VMM) CODE ''OMMA^D WPF 


746 

747 




SEEK 105 P 


748 


RECALlRATE 107 P 


74Q 


DRIVE CLEAR 111 N 


7SC 
/*51 
752 
^3! 


RELEASE 113 S 


Of.' SET 115 P 
RETURN TO CENTER 117 P 
READIN PRESET 1?1 N 


754 


PACK ACKNOWLEDGE 1?3 N 


755 


SEARCH 131 P 


756 


GET REGISTER(S) Ui S 


757 


SET FORMAT 143 S 


758 


SELECT DRIVE 145 S 


759 


WRITE CHECK DATA 151 D 


760 


WRT CHK HDR & DATA 153 D 


761 


WRITE DATA 161 D 


762 


WRITE HEADER ft DATA 163 D 


763 


READ DATA 171 D 
READ HEADER K DATA 173 D 


/'64 


765 




766 




767 


N = HOUSEKEEPING 


768 


P - POSITIONING 


^69 


D = DATA TRANSFER 


770 


S = SPECIAL PROVIDED BV THE DRIVER 


771 




772 


10.7 DPS STATUS/ERROR INDICATOR WORD 


776 




77*, 


THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST. 


77S 


THIS IS ACCOMPLISHED BV SETTING VARIES BITS OF THE INDICATOR TO 


77b 


A ONE. 


777 




778 


BIT NO. MEANING IF ON A "1" 


779 




780 




781 


■'S ERROR OCCURRED 


78? 


DONE (8IT07=0); BITS 14-9 SPECIFIES TYPE 


78^ 


DONE (8IT07=1); BITS 6-3 SPECIFIES TYPE 


784 




785 


U(1) USER MADE A REQUEST FOR A FUNCTION TO BE 


786 


PERFORMED ON AN OFFLINE OR UNSAFE DRIVE 


787 




788 


13(1) USER MADE A REQUEST FOR A FUNCTION 


'89 


TO BE PERFORMED ON A DRIVE THAT HAS AN 


790 


UNLOAD REQUEST IN QUEUE. 


791 




79? 


1?(?) PERSISTENT UNSAFE CONDITION EXIST. 


795 




794 


IK?) UNCORRECTABLE PARITY ERROR OCCURRED 


795 




^96 


10(?)(4) FATAL PARITY ERROR. A MASS8US CLEAR WAb 


797 


PERFORMED. ALL QUEUES WERE EMPTIED. AND 
ALi DRVACT'S SET TO THE IDLE STATE 


'"•98 
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A)0 

ao' 

80? 

aw 

8C6 

808 

809 

5'^ 

8^1 

8V 

81^ 

8U 

815 

816 

817 

818 

819 

8?0 

821 

822 

82? 

824 

825 

826 

827 

828 

829 

850 

831 

852 

853 

854 

855 

856 

857 

858 

859 

840 

841 

842 

845 

844 

845 

846 

847 

848 

849 

850 

851 

852 

855 

854 

855 



9(3M4) SOfTwARE TlHEOuT OCCO«»RfD ON ThIS C>R|vf 

8(4) SOFTWARE TJ^OUT OCCOORED ON ANOTHftf Df>Ii/E 

7 DONE 

6(2) ERROR OCCl^RED DURING AN I/O OPt RAMON 

5(2) ERROR OCCURRED DURING AN OPERATION 

OTHER THAN I/O. 

4(2) CORRECTABLE UNSAFE CONDITION OCCURRED 

5C) DRIVE ERROR OCCURRED THAT CAUSED AN 

AUTOMATIC "RECALIBRATE" SEQUENCE 

2 PORT REQUEST TIMEOUT. THE DRIVER REQUESTED 

THE DRIVE BUT THE OPPOSITE c»ORT DID NOT 
RELEASE THE DRIVE WITHIN 15. SECONDS. 

1 NON-EXISTENT DRIVE REQUESTED. USER MADE 

A REQUEST FOR A NON-EXISTENT DRIVE. 

NOTES FOR ABOVE 



(1) = 



(2) 



(5) 



(4) 



REQUEST WASN'T PUT IN QUEUE, 
REGISTERS WERE NOT SAVED) 



(RH/RM 



REQUEST QUEUE HAS BEEN EMPTIED. THE DRIVER 
ISSUED A "DRIVE CI EAR" TO THE DRIVE. 
NOTE: ALL RH/RM REGISTERS ARE SAVED 
AS PER DP8+14 BEFORE THE 'DRIVE CLEAR". 

REQUEST QUEUE HAS BEEN EMPTIED. THE 
DRIVER ISSUED A MASS8US INIT. ALL 
RH/RM REGISTER' FOR THE DRIVE WERE 
SAVED AS PER 0F8*14 BEFORE THE INIT. 

A "RECALIBRATE" SHOULD BE ISSUED 
BEFORE ANY OTHER COMMAND. 



10.8 ERROR CALLS MADE BY THE DRIVER. 

THERE ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DP©. 

WHEN THIS TYPE OF ERROR IS DETECTED BY THE DRIVER IT WILL MAKE 
AN ERROR CALL OF THE FORM "ERROR N". WHERE 'V IS THE ERROR 
NUMBER AND THE ERROR WILL BE AN EMT INSTRUCTION. 



N 



TYPE 



RH70 INTERRUPT 



DATA AVAILABLE 



• R4= RMCSTS ADDRESS 
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854 
857 

858 
85Q 

860 
861 
8^2 
863 
864 
865 
866 
8o7 
868 
869 
870 
8^1 
87? 
873 
87C 
875 
876 
877 

878 
879 

880 
881 
88c' 
883 
88A 
885 



OCCURRED (RHAS 0) 

UNEXPECTED ATTENTION 
OCCURRED 



HASS8US PARITr 
ERROR (MCPE-1) 

MASS8US PARITY 
ERROR (PAR-l; 



ADDRESS PLUG CHANGE 
BJT SET COPE' ERROR) 



R1- DRIVE Nimik 
R5= ATA BIT 
•Ri= RKSTS ADDRt'vS 
R5- (R«AS) 
RMERRS =RMOS 
RM€RRS*2=RMER1 
RMfRRS*A=RI>1ER? 
RMERRS*6=RW1R2 

RD.ADR= ADDRESS OF REG. RfAD 
RD.WRD- WORD READ 

WRT,AD= ADDRESS OF REG. WRP' 
WRT.WD= WORD WRITTEN 
RD.WRD= WORD READ BACK 

R1= DRIVE NUMBER 
R3- ATA BIT 
•R4= RMCSTS ADDRESS 
R5= (RMAS) 
R1ERRS =RMDS 
RMERRS»?=RMER1 
RWRRS*A=Rf«R2 
RMERRS*6-R»W2 



• THIS IS THE ACTUAL UNI8US ADDRESS M 76700) 
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•LAST REVISION 04-APR-81 



001 ICO 
104000 
000004 



000011 
000012 
000015 
000200 
1 77776 
1 77776 
1 77T7k 
U7772 
177570 
1775^0 



TITLE CZRdLBO RM05/3/2 FORMATTER 
C(PVRIGHT (C) 1981 
DIGITAL EQUIPMENT CORPORATION 
COLORADO SP6S.. CO. 80919 

PROGRAM BV MIKE LEAVITT 

THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SrSMAC 
PACKAGE (MAINDEC-n-DZQAC-C5). ■'8-MAR-81 

S8TTL OPERATIONAL SWITCH SETTINGS 



SWITCH 

15 
13 
10 

9 

2 

1 

0 



USE 



HALT ON ERROR 
INHIBIT ERROR TVPFOUTS 
BELL ON ERROR 
LOOP ON ERROR 

DON'T DISPLAY SYSTEM STATUS AFTER INITIAL 

I OOP ON THE CURRENT TRACK 

LOOP THE PROGRAM ON THE SELECTED DRIVE 



START 



.S8TTL BASIC DEFINITIONS 



.-•INITIAL ADDRESS 
STACK =1100 
ERROR = EMT 
SCOPE - lOT 



OF THE STACK POINTER 



1100 



.•BASIC 
.•BASIC 



DEFINITION 
DEFINITION 



OF 
OF 



•MISCELLANEOUS DEFINITIONS 



HT 
LF 
CR 
CRLF 
PS 

PSW=PS 

STKLMT 

PIRO 

DSWR 

DDISP 



1i 
12 
15 
200 

177776 

^77771, 
^77772 
177570 
177570 



ERROR 
SCOPE 



TAB 



CALL 
CALL 



CODE FOR HORIZONTAL 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE 
PROCESSOR STATUS WORD 



FEED 



STACK LIMIT REGISTER 
PROGRAM INTERRIPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



000000 
000001 
000002 
00000? 
000004 
000005 
000006 
000007 
000006 
000007 



.••GENERAL PURFKJSE REGISTER DEFINITIONS 



RO 
R1 
R2 
R3 
R4 
R5 
R6 
R7 

SP 
PC 



xy 

X2 
XI 
X4 
25 
X6 
X7 
Xd 
X? 



GENERAL REGISTER 
GENERAL REGISTER 
GENFRAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAt REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POiNTER 
PROGRAM COUNTER 



000000 



.••PRIORITY LEVEL 
PRO = 0 



DEFINITIONS 

;; PRIORITY ifV: 



OOOCAO 
000100 
COCKO 
000200 
000240 
000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
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PR1 
PR2 
P93 
PR4 
PR5 
PR6 
PR7 



40 
100 
= 140 
= 200 
= 240 
= 300 
- 340 



.••"SWITCH 
SWiS 

SW14 = 

SW13 

SW12 

SW11 

SWIO 

SW09 

SW08 

SW07 

SwOb 

SW05 

SW04 = 

SW03 

SW02 

SW01 

SWOO 

SW9-SW09 
SW8-SW08 
SW7=SW07 
SW6-SW06 
SW5-SW05 
SW4 SW04 
SW3-SW03 
SW2-SW02 
SW1-SW01 
SwO-SWOO 



REGISTER" 

100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 



PRIORITY lEVEL 1 

PRIORITY LEVEL 2 

PRlORITr LEVEL 5 

PRIORITY ,EVEL 4 

PRIORITY LEVEL 5 

PRIORITY LEVEL 6 

PRIORITY LEVEL 7 



SWITCH DEFINITIONS 



.-•DATA 

BJT15 
BIT14 
BIT13 
BIT12 
BIT11 
BIT10 
BIT09 
BJT08 
BIT07 
BIT06 
BIT05 
BIT04 
8IT03 
Bir02 
8IT01 
81 TOO 
BIT9-8IT09 
bIT8-8IT08 
BIT/ eiT07 
BITfc 8F06 



BIT DEFINITIONS 

- 100000 
= 40000 
= 20000 

- 1C000 

- 4000 
= 2000 

- 1000 

- 400 

- 200 

- 100 
= 40 
= 20 
= 10 
= 4 
= 2 

1 



(BITOO TO BIT15) 



000040 
000020 
000010 
000004 
000002 
000001 



000004 
000010 
00001 4 

oooou 

000014 
000020 
000024 
000030 
000C34 
000060 
000064 
000240 

t-> 

7d 
75 

'4 000100 
7b 000200 

76 000400 

77 001000 
73 002000 
7<y 020000 
80 U40000 
81 

«2 
8^ 
84 
85 
86 
87 
88 
89 
90 
91 
92 
9^ 
94 
9S 
96 
H7 
98 

' ^0 
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1 



r 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 



BIT5=8IT05 
B1T4=8IT04 
BIT3=8IT03 
6112=81102 
6111=81101 
8170=81100 

.••BASIC "CPU" 1RAP VEC10R ADDRESSES 

ERRVEC = 4 ;;n«E OUl AND OIHER ERRORS 

RESVEC = 10 -RESERVED AND RLEGAL INSIRUdlONS 

T81TVEC = 14 ;;"T-' 611 

TRrvEC =14 ;;1RACE 1RAP 

BP1VEC = 14 ;;8REAKP0IN1 1RAP (8P1) 

lOlVEC = 20 ;; INPU1/0U1PU1 1RAP (lOT) ••SCOPE*' 

PWRVEC = 24 ;; POWER FAIL 

FMTVEC = 30 ;;EMULA10R 1RAP (EMT) ••ERROR** 

TRAPVEC = 34 ;;"1RAP" TRAP 

TKVEC - 60 ;;11Y KEYBOARD VEC10R 

TPVtC - 64 ;;1TV PRIN1ER VECTOR 

PIROVEC 240 ;;PRCGRAW INTERRUPT REQUEST VECTOR 

.S81TL RH REGISTERS 

.•CONTROL AND STATUS REGISTER 1 (RMCS1) 



IE 

RDY 

A16 

A17 

PSEL 

MCPE 

TRE 

;SC 



100 

200 

400 

1000 

2000 

20000 

40000 

100000 



(BIT *6) 



INTERRUPT ENABLE 
READY (81 T #7) 
HIGH ORDER BUS ADDRESS 
HIGH ORDER BUS ADDRESS 
PORT SELECT (BIT #10) 
MASSBUSS PARITY ERROR (BIT 
TRANSFER ERROR (BIT #14) 
SPECIAL LONDITION (BH #15) 



BIT 
BIT 



(BIT 

(er 

#13) 



#8) 

#9 J 



.•WORD COUNT REGISTER (RMWO 

.-(EACH BIT IS CALLED BY BP NUMBER) 

.-BUS ADDRESS REGISTER (RMBA) 
.(EACH BIT IS CALLED BY BIT NUMBER) 

.•CONTROL AND STATUS REGISTER 2 (RMCS2) 



US1 




1 


UNIT SELECT (BIT #0) 


US2 




2 


•UNIT SELECT (^IT #1) 


US4 




4 


•UNIT SELECT (BIT #2) 


BAI 




10 


•BUS ADDRESS INCREMENT INHIBIT fBH #'. 


PAT 




20 


•MASS8US PARITY TEST (BIT #4) 


CLR 




40 


•CLEAR (BIT #5) 


IR 




100 


•INPUT READY (BIT #6) 


OR 




200 


; OUTPUT READY (BIT #7) 


MPE 




400 


;MASS BUS PARITY ERROR (BP #8) 


MXF 




1000 


;MISSED TRANSFER ERROR (BIT #9) 


PGE 




2000 


•PROGRAM ERROR (BIT #10) 


NEM 




4000 


;N0N EXISTENT MEMORY (BIT #11) 


NED 




10000 


;N0N EXISTENT DRIVE (BIT #12) 


UPE 




20000 


;UNIBUS PARITY ERROR (BIT tf^l, 


WCE 




40000 


.•WRITE CHECK ERROR (BIT #^4j 
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'. ' ' 

DLT = 100000 .-DATA LATE (BIT #15) 

.•DATA BUFFER REGISTER (RMDB) 

> .-(EACH BIT IS CALLED BY BIT NUMBER) 

.S8TTL RM REGISTERS 

;CONTROL AND STATUS 1 REGISTER. (#00) 

000001 GO - 1 ;G0 BIT (BIT #C) 

't 000002 F1 =2 .-FUNCTION CODE BIT #1 

000004 F2 - 4 .-FUNCTION CODE BIT #2 

"8 000010 F5 = 10 .-FUNCTION CODE BIT #5 

000020 F4 = 20 .-FUNCTION CODE BIT #4 

A 000040 F5 =40 ; FUNCTION CODE BIT #5 

004000 DVA = 4000 .-DEVICE AVAILABLE (BH fV ) 

?? 

.-DRIVE STATUS REGISTER (RMDSD (*01 ) 

?4 

25 000100 VV = 100 .-VOLUME VALID (BIT #6) 

26 000200 DRY - 200 .-DRIVE READY (BIT #7) 

27 000400 DPR - 400 .-DRIVE PRESENT (BIT #8) 

28 001000 PGM = 1000 .-PROGRAMASLE (BIT *9) 

29 002000 LST - 2000 .-LAST SECTOR TRANSFERRED (BIT #10) 

30 C04000 WRl - 4000 .-WRITE LOCK (BIT #11) 

3' 010000 MOL - 10000 .-MEDIUM ON-LINE (BIT #12) 

52 020000 PIP 20000 .-POSITIONING OPERATION IN PROGRESS (BH #1 ? 

33 040000 ERR = 40000 .-COMPOSITE ERROR (BIT #14) 

34 100000 ATA - 100000 .-ATTENTION ACTIVE (BIT #15) 
35 

56 .-ERROR REGISTER #01 (RMERD (#02) 
3/ 

38 000001 ILF - 1 .-ILLEGAL FUNCTION (BIT #0) 

39 000002 ILR 2 .-ILLEGAL REGISTER (BIT #1) 

*.0 000004 RMR =4 .-REGISTER MODIFICATION REFUSED (BIT /t^) 

41 000010 PAR - 10 .-PARITY ERROR (BIT #3) 

42 000020 FER =20 .-FORMAT ERROR (BIT #4) 

4? 000040 WCF - 40 .-WRITE CLOCK FAIL (BIT #5) 

44 000100 ECH = 100 ;ECC HARD ERROR (BIT #6) 

45 000200 HCE 200 .-HEADER COMPARE ERROR (61 T tt7' 

46 000400 HrRC = 400 .-HEADER CRC ERROR (BIT #8) 

4 7 001000 AOE = 1000 .-ADDRESS OVERFLOW ERROR (BIT *9) 

48 002000 lAE = 2000 .INVALID ADDRESS ERROR (BIT #1C) 

49 004000 WIE - 4000 .-WRITE LOCK ERROR (BIT *n ) 

50 010000 DTE - 10000 .-DRIVE TIMING ERROR (BIT #V) 

51 020000 OPI - 20000 .-OPERATION INCOMPLETE (BIT #13i 

52 040000 UNS - 40000 .-DRIVE UNSAFE (BIT #14) 

55 100000 DCK - 100000 .-DATA CHECK ERROR (BIT 15) 
54 

55 .-MAINTAINABILITY REGISTER (RMMR1)(#03) 
56 

57 000001 DMD - 1 ;DIAGIN0STIC MODE (BIT #0) 

58 000002 MCLK 2 .-MAINTAINABILITY CLOCK (BIT #' ) 

59 000004 MINX = 4 .-MAINTAINABILITY INDEX (BIT #2; 

60 000010 MSTCK - 10 .-MAINTAINABILITY SECTOR CLOCK <Hr 
^1 000020 MRD - 20 .-MAINTAINABILITY READ (BIT #4) 

t? 000040 MWR 40 .-MAINTAINAeiLlTY WRFE (BIT *S ^ 



*v t,, j1 / t 



'6^. 

'tt 

VC 

VI 
^ '? 

176 
177 
1 ^8 
179 
^80 
181 
182 
183 
184 
185 
186 
13^ 
188 
''89 
190 
191 
19? 
19? 
19*. 
195 
196 
197 
'98 
'99 
POO 
?01 
202 
201 
20U 
?05 
206 
207 
208 
209 
2W 
?11 
2^2 
21? 
2U 
215 
?16 
217 
218 



000200 



V04.00 



K 2 

4-APR-81 18:39:56 PAGE 4-4 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
004000 
020000 
040000 
100000 



000100 
000200 
000400 
001000 
002000 

004000 
010000 
020000 
040000 
100000 



C00001 
002000 
004000 
010000 



SCO 002; 



DTSV = 200 ;WAINTAIMA8lLlTy SVNC DfTECTEO (81T 07) 

.•ATTENTION SUMWARY PSEUDO-REGISTER (RMAS) (#04 1 



ATO 
ATI 
AT2 
AT3 
AT4 
AT5 
AT6 
AT7 



1 
2 
4 

10 

20 

40 

100 

200 



DEVICE 0 
DEVICE 1 
DEVICE 
DEVICE 
DEVICE 
DEVICE 5 
DEVICE 6 
DEVICE 7 



2 
3 
4 



(BIT #0) 

(8IT *1) 

(BIT *2) 

(BIT *3) 

(BIT *4) 

(BIT *5) 

(BIT *6) 

(BIT 07) 



;DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 



.•DRIVE TYPE REGISTER (RMDT) (#06) 



DTOO 

DT01 

DT02 

DTO^ 

DT04 

DT05 

DT06 

DT07 

DT08 

DRQ 

MOH 

TAP 

NBA 



1 
2 
4 

10 

20 

40 

100 

200 

400 

4000 

20000 

40000 

100000 



DRIVE TYPE NUMBER BIT 1 
DRIVE TYPE NUMBER BIT 2 
DRIVE TYPE NUMBER BIT 
TYPE NUMBER BIT 
TYPE NUMBER BIT 
TYPE NUMBER BIT 



DRIVE 
DRIVE 
DRIVE 



3 
4 
5 
6 

DRIVE TYPE NUMBER BIT 7 

DRIVE TYPE NUMBER BIT 8 

DRIVE TYPE NUMBER BIT 9 

DRIVE REQUEST REQUIRED (BIT ttU > 

MOVING HEAD (BIT #13) 

TAPE DRIVE (BIT #14) 

NOT BLOCK ADDRESSED (BIT #15) 



.•LOOK-AHEAD REGISTER (RMLA) (#07) 



SC01 
SC02 
SC04 
SC10 
SC20 



= 100 

- 200 
= 400 

1000 

- 2000 



SECTOR COUNT FIELD 0 

SECTOR COUNT FIELD 1 

SECTOR COUNT FIELD 2 

SECTOR COUNT FIELD 3 

SECTOR COUNT FIELD 4 



(BIT #6) 

fRJT »7) 

(BIT #8) 

(BIT #9) 

(BIT *10> 



TRK1 - 4000 

TRK2 - 10000 

TRK4 - 20000 

TRKIO - 40000 
TRK20 100000 

.•OFFSET REGISTER (RMOF ) (#11) 



TRACK FIELD 1 

TRACK FIELD 2 

TRACK FIELD 3 

TRACK FIELD 4 

TRACK FIELD 5 



(BIT #11) 

(BIT #12) 

(BIT #n) 

(BIT #14) 

(BIT #15) 



OFDIR 
HCI 
ECI 
FMT16 



- 1 

- 2000 
4000 

= 10000 



OFFSET DIRECTION 
HEADER COMPARE INHIBIT (BIT fflO) 
ERROR CORRECTION CODE INHIBIT 'BP 
FORMAT BIT (BIT #1c' 



.•DESIRED CYLINDER ADDRESS (RMDC) (#12) 
.-(EACH BIT IS CALLED BY BIT NUMBERS 

.•SERIAL NUMBER REGISTER (RMSN) (#"4) 



<\o 

??2 
221 
22t* 
2?S 
22b 
227 
22% 
22^ 
250 
231 
2Z2 
253 
234 
255 
256 
257 
258 
259 
240 
24 1 
242 
243 
244 
24S 
246 
2^7 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
265 
264 
265 



.04.00 
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040000 
100000 



.-(EACH IS CALLED Br BIT NUMBER) 

.RM MAINTENANCE REGISTER «02 (RMnR2) («15} 

SttI = 40000 .-SEEK INCOMPLETE CBIT #U) 

.•ERROR REGISTER #02 (RMER2) 

BSE = 100000 ;8AD SECTOR ERROR C8IT #15) 

;ECC POSITION REGISTER (RMECn (#16) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

;ECC PATTERN REGISTER (RMEC2) C#17) 
.-(EACH BIT IS CALLED BY BIT NUMBER^ 

.■SOME ""ST HEADER WORD DEFINITIONS 



100000 


MF 




100000 


MANUFACTURES BAD SECTOR Fl 


040000 


UF 




40000 


USERS BAD SECTOR FLAG (81 


U 1 uuuu 


FMT 




10000 


FORMAT 16 BIT MODE (BIT # 




.S8TTL 


m DRIVER COMMANDS 




000105 


SEEK 




105 


SEEK 


000107 


RECAL 




107 


RECALIBRATE 


000111 


DRVCLR 




111 


•DRIVE CLEAR 


000113 


RELSE 




113 


■RELEASE 


000115 


OFFSET 




115 


•OFFSET 


0001 1 7 


RTC 




117 


•RETURN TO CENTER LINE 


000121 


READIN 




121 


rREAD IN PRESET 


000123 


ACK 




123 


rPACK ACKNOWLEDGE 


000131 


SEARCH 




131 


; SEARCH 


000141 


GETREG 




141 


;GET REGISTERS 


000143 


SETFWT 




143 


;SET FORMAT (6 ECI OR HCD 


000145 


SELDRV 




145 


;SELECT DRIVE 


000151 


WC<D 




151 


;WRITE CHECK DATA 


000153 


WCKHD 




153 


;WRITE CHECK HEADER & DATA 


000161 


WRTDAT 




161 


; WRITE DATA 


000163 


WRTHD 




163 


.•WRITE HEADER & DATA 


0001 71 


RDDAT 




171 


;PEAD DATA 


0001 73 


RDHD 




173 


;READ HEADER & DATA 


176700 


ABASE 




1 76700 




000254 


AVECT1 




254 





:oooco 



300' 74 000000 
000176 000000 



000200 000137 007012 
000137 007020 



5 000204 
4 
5 
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.S8TTL TRAP CATCHER 
.-0 

•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ••.♦2.hAl"' 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLV LOADED VECTORS 
. = 174 



SfO 00. " 



DISPREG: .WORD C 
SWREG: .yORD 0 

.S8TTL STARTING ADDRESS(ES) 
J«P aXfS'ART 
JMP a^STARTI 

.S8TTL ACT11 HOOKS 



.-.-SOFTWARE UISPLAY REGISTER 
.-.-SOFTWARE SWITCH REGI«vTER 



.-.-JUMP TO STARTING ADDRESS OF PKOot*AM 
.-CHANGE THE RH/RM ADDRESS 



000210 
000046 

000046 016352 
000052 

000052 020000 



6 

7 
8 



000210 

001100 



:H00K REQUIRED BV ACT 11 
$SVPC=. 
. 46 
$ENDAD 
. 52 

.WORD 20000 
.-SSVPC 



. 1100 
.S8TTL 



.■SAVE PC 

;;1}SET L0C.46 TO ADDRESS OF SENDAD IN .%10P 

;;2)SET LOC.52 TO 20000 
;; RESTORE PC 



APT PARAMETER BLOCK 



9 
'0 



000024 
000044 



001100 
001100 
001102 
001104 
001106 
001110 
001112 



001100 
000024 
000200 
000044 
001100 
001100 



000000 
001210 
002734 
002734 
002734 
000032 
001114 



;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 



.$X=. 
. 24 
200 
.=44 
SAPTHDR 
. = .$X 



SAVE CURRENT LOCATION 

SET POWER FAIL TO POINT TO START OF 

FOR APT START UP 

POINT TO APT INDIRECT ADDRESS PNTR. 
POINT TO APT HEADER BLOCK 
RESET LOCATION COUNTER 



PROGRAM 



SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHD 
SHIBTS 
SMBADR 
STSTM: 



.WORD 
.WORD 
.WORD 



SPASTM: .WORD 
SUNITM: .WORD 
.WORD 

TA8.XY-. 



0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMAIL ADDRESS OF APT MAILBOX (BITS 0-15) 
1500. ;;RUN TIM OF LONGEST TEST 

1500. ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFV) 
1500. -ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
$ETEND-$MAIL/2 ;;LENGTH MA I L80X-E TABLE (WORDS) 
.-CMTAGSTARTING ADDRESS 



BO RM05/V£^ fORK'AT 
MMLN TAGS 



Ft* 



"lA'WO VOA.OO 
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SfO 002' 



.SSTTL C0MW3N TAGS 



•THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
•USED IN THE PROGRAM. 





001 1 14 






.=TA8.XY 




001 IK 




SCMTAG: 




• 


.•START OF COMMON TAGS 


001 IK 


000000 

WWW 






.WORD 


0 




001 116 


000 

V w 




STSTNM: 


.evTE 


0 


.•CONTAINS THE TEST NUMBER 


001117 


000 




SERFlG. 


.evTE 


0 


.-CONTAINS ERROR FLAG 


001120 


000000 

W w W V 




SICNT: 


• WORD 


0 


.•CONTAINS SUBTEST ITERATION COUNT 


001122 


000000 

www 




SLPADR 


.WORD 


0 


.•CONTAINS SCOPE LOOP ADDRESS 


001 12A 


000000 




slperr. 


.WORD 


0 


.•CONTAINS SCOPE RETURN FOR ERRORS 


001126 


000000 




SERTTL 


.WORD 


0 


.•CONTAINS TOTAL ERRORS DETECTED 


001130 


000 




$ITEM8. 


.BYTE 


0 


.•CONTAINS ITEM CONTROL BYTE 


001131 


001 




SERMAX 


.BYTE 


1 


.•CONTAINS MAX. ERRORS PER TEST 


001132 


000000 




SERRPC 


.WORD 


0 


.•CONTAINS PC OF LAST ERROR INSTRUCTION 
.•CONTAINS ADDRESS OF 'GOOD' DATA 
.•CONTAINS ADDRESS OF 'BAD* DATA 
.•CONTAINS 'GOOD' DATA 
.•CONTAINS 'BAD' DATA 


001134 


000000 




SGDADR 


.WORD 


0 


CGI 1 36 


000000 




SSDADR 


.WORD 


0 


001 1A0 


000000 




SGDDAT 


.WORD 


0 


001142 


000000 




$8DDAT 


.WORD 


0 


001144 


000000 






.WORD 


0 


.■RESERVED— NOT TO BE USED 


001 146 


000000 






.WORD 


0 




001150 


000 




$AUT08 


.BYTE 


0 


;AUTOMATIC MODE INDICATOR 


001151 


000 




SINTAG 


.BYTE 


0 


.•INTERRUPT MODE INDICATOR 


001152 


000000 






.WORD 


0 




001154 


177570 




SWR: 


.WORD 


DSWR 


.•ADDRESS OF SWITCH REGISTER 


001156 


177570 




DISPLAY: .WORD 


DDISP 


.•ADDRESS OF DISPLAY REGISTER 


001160 


1 77560 




$TKS: 


177560 




;TTY KBD STATUS 


001162 


177562 




$TK8: 


177562 




;TTY KBD BUFFER 


001164 


177564 




$TPS: 


177564 




;TTY PRINTER STATUS REG. ADDRESS 


001166 


1 77566 




$TP8: 


1 77566 




;TTY PRINTER BUFFER REG. ADDRESS 


001170 


000 




$NULL : 


.BYTE 


0 ; 


.•CONTAINS NULL CHARACTER FOR FILLS 


001 1 71 


002 




SFILLS 


: .BYTE 


2 


;CONTAINS * OF FILLER CHARACTERS REQUIRED 


00117? 


012 




SFILLC 


: .BYTE 


12 


.•INSERT FILL CHARS. AFTER A 'IINE FEED" 
.■"TERMINAL AVAILABLE" FLAG (8IT<07.> O'YES) 


001173 


000 




STPFLG 


: .BYTE 


0 


001 1 74 


000000 




STMPO: 


.WORD 


0 


;USER DEFINED 


001176 


000000 




$ESCAPE:0 




.•ESCAPE ON ERROR ADDRESS 


001200 


207 


377 


377 $8ELL: 


.ASCIZ 


<207><377><377> ] 


;CODE FOR BELL 


001204 


077 




SQUES: 


.ASCII 


/?/ 


.•QUESTION MARK 


001205 


015 




SCRLF : 


.ASCII 


<15> 


; CARRIAGE RETURN 


001206 


012 


UOO 


$LF: 


.ASCIZ 


<12> 


.•LINE FEED 



' • •♦»♦»**»»*»**•*******»♦♦****•»*< 

,S6TTL APT MAILBOX-ETABLE 



»»****•»****»*•»***»*»♦•»**»*»*♦♦**********♦************•***••• 



001210 
001210 
001212 
001214 
001216 
001220 
001222 
001 22A 
001226 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



.EVEN 
SMAIL: 

SMSGTV; .WORD 

$FATAL: .WORD 

STESTN: .WORD 

$PASS: .WORD 

SDEVCT: .WORD 

SUNIT: .WORD 

$MSGAD: .WORD 

SMSGLG: .WORD 



A/'ISGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

AMSGLG 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 



if ma^bOK-ETASlE 



lACttO ;W.OO 
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001250 
001250 

:oi23i 

001252 

00^:54 

C01256 



000 
000 
000000 
000000 
000000 



S60 002/ 



SET ABLE: 
$ENV: .arTE 
SENVM: .BYTE 
SSWREG: .WORD 
SUSUR: .yORD 
SCPUOP: .WORD 



AENV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 



001240 


000 


• • 

• • 

• • 

tMAMSI 


.8YTc 


AMAMS1 


X"1?41 


000 


swrypi 

• » 

• • 


.BYTE 


AMTYPI 


001242 


000000 


- • 

• • 

SMADRI 

• * 


.WORD 


AMADR1 


001244 


000 


* 

IMAMS 2 


.BYTE 


MAMS 2 


001245 


000 


$MTYP2 


.BYTE 


AMTYP2 


001246 


000000 


SMADR2 


.WORD 


AMADR2 


001250 


000 


$MAMS3 


.BYTE 


AMAMS3 


001251 


000 


$MTYP3 


.BYTE 


AMTYP3 


001252 


000000 


$MADR3 


.WORD 


AMADR3 


00^254 


000 


SMAMS4 


• .BYTE 


AMAMS4 


OC1255 


OOu 


$MTYP4 


.BYTE 


AMTYP4 


001256 


000000 


$MADR4 


.WORD 


AMADR4 


001260 


000254 


SVECTI 


• .WORD 


AVECT1 


001262 


000000 


$VECT2 


• .WORD 


AVECT2 


001264 


1 76700 


tBASE: 


.WORD 


ABASE 


001266 


000000 


SDEVM: 


.WORD 


ADEVM 


001270 


000000 


SCDWI : 


.WORD 


ACDWl 


001272 


000000 


$CDW2: 


.WORD 


ACDW2 


001274 




SETEND 










.MEKIT 







APT E.'.VJROf^lENT TABLE 
ENVJROf«ENT BYTE 
ENViROf«ENT MODE BITS 
APT SWITCH REGISTER 
USER SWITCHES 
CPU TYPE. OPT IONS 
alTS 15-11=CPU TYPE 

1 1 /04=01 , 1 1 /05=02. 1 1 /20=05. 1 1 /40=0* , 1 1 /4S=05 
11/70=06.PD0=07.0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT F MEMORY MANAGEMENT 
;;HIGH ADDRESS.M.S. BYTE 
;;I1EM. TYPE.BLMi 
HEM. TYPE BYTE -- (HIGH BYTE) 
900 NSEC CORE =001 
300 NSEC BIPOLAR=002 
500 NSEC '>10S=003 
HIGH ADDRESS. BLKA1 

MEM. LAST ADDR.=5 BYTES. THIS WORD AND LOW OF "TYPE" ABOVE 
HIGH ADDRESS.M.S. BYTF 
MEM. TYPE, BLK#2 
MEM. LAST ADDRESS. 8LK#2 
HIGH ADDRESS.M.S. BYTE 
MEM. TYPE .8LK#3 
MEM. LAST ADDRESS. BLK#3 
HIGH ADDRESS.M.S. BYTE 
MEM. TYPE. BLK#4 
MEM. LAST ADDRESS.8Lk:#4 
INTERRUPT VECT0R#1.8US PRIORITY*! 
INTERRUPT VECT0Riff28US PRI0RITY*2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 

CONTROLLER DESCRIPTION W0RD#1 
CONTROLLER DESCRIPTION W0RD#2 
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001276 


000254 




001300 






001502 


1 72542 




001504 


000104 


000106 


001310 


1 77546 




001512 


000100 


000102 




001222 




001316 


000000 




001 520 


000000 




001 322 


000000 




001 524 


000000 




001 326 


000000 




001330 


000000 




001 332 


000000 




001334 


000000 




001 336 


155555 




001340 


133333 




001 342 


000000 




001 344 


000000 




001 346 


000000 




VJ \ 5 






001352 


000000 




001354 


000000 




001 356 


000000 




001 360 


000000 




001362 


000000 










001366 


000000 




001570 


000000 




001372 


000000 




001 374 


000001 










001400 


000000 


000000 


001404 


000000 




001406 


000000 




OOUlO 


000000 




001412 


000000 





.S8TTL 


USER DEFINED TAGS 


tRMADR 


• .WORD 


1 76700 ; 


SRMVEC 


• .WORD 


254 


c 1 wren 


■ .WORD 


1 72540 ; 


$LtcCS8 


• .WORD 


172542 ; 


ILPVtC 


- .WORD 


104,106 ; 


SLKS: 


.WORD 




SLLVEC 


- . WORD 


100,102 ; 


DRIVE 


-$UNIT 




SOFSU: 


.WORD 


A 

0 


MODE: 


.WORD 


A 

0 


SNGSEC 


. WORO 


0 


LSTRK: 


.WORD 


A 

0 


MAXCVL 


. WUHD 


A 

0 


MiNCVL 


.WORD 


0 


MAXTRK 


. WUHD 


A 

0 


MINTRK 


.WORD 


A 

0 ; 


PATA: 


.WORD 




PAT8: 


.WORD 


133533 ; 


RETRY: 


.WORD 




BADSEC 


. WORD 


n 


SAVWC : 


.WORD 


0 


WC: 


.WORD 


0 


l>1WC: 


.WORD 


0 




.WUHD 




SEC30: 


.WORD 


0 ; 


MAXSEC 


■ .WORD 


0 ; 


DS.CYL 


. WORD 


A . 


DS.TRK 


.WORD 


0 ; 


DDRIVE 


• .WORD 


0 




. WUND 


0 ; 


CNTl C : 


.WORD 




CHGADR 


• .WORD 


1 


WRAP: 


.WORD 


0 


Ut Vrr ; 


.WORD 


0.0 ; 


BSFAVL 


.WORD 


0 


UPD8SF 


• wUHi; 


n 

U i 


HDRBI T 


• .WORD 


0 


XXDP: 


.WORD 


0 ; 



RH/RM UNI8US ADDRESS 
RH/RM INTERRUPT VECTOR 
ADDRESS OF KWll-P CSR 
ADDRESS OF KWll-P COUNTER 
ADDRESS OF KWll-P VECTOR 
ADDRESS OF KW11-L CONT.<OL 
ADDRESS OF KWll-L VECTOR 



BUFFER 
REGISTER 



CONTAINS DRIVE NLUBER SELECTED 
SAME PARAMETER USED IN APT 
CONTENTS ARE FOR SOFTWARE DECISIONS 
FORMATr 0. VERIFY HEADERS^ 1 
READ MULTI-SECTOR= 0. READ SINGLE SECTOR- 1 
CONTAINS THE LAST TRACK OF THE UNIT UNDER 
TEST. RM02/3= 4.. RM05= 18. 
ENDING CYLINDER 
STARTING CYLINDER 
ENDING TRACK 
STARTING TRACK 
1ST WORD OF PATTERN (WCP) 
2ND WORD OF PATTERN (WCP) 
MAINTAINS M OF WRITE RETRIES MADE 
CONTAINS LAST BAD SECTOR ON FORMAT 
CONTAINS WC FOR REMAINING SECTORS ON ERROR 
30 OR 32 SECTOR TRACK SIZE (IN WORDS) 
2'S COMPLEMENT OF 'WC* 

POSITIONING ERROR DURING FORMAT INDICATOR 
30 OR 32 SECTOR MODE INDICATOR 
0= 30. SECTOR MODE (18 BIT MODE) 
-1- 32. SECTOR MODE (16 BIT MODE) 
MAXIMUM SECTOR ADDRESS, 29. FOR 18. BIT MODE OR 
31. FOR 16 BIT MODE 
ADDRESS OF CURRENT CYLINDER 
ADDRESS OF CURRENT TRACK 
DRIVE NUMBER OF 'DRIVER' ERROR MESSAGES 
ATTENTION REGISTER IMAGE FOR 'DRIVER' 
ERROR MESSAGES 
ADDRESS OF '"C RETURN 
'CHANGE RH/RM ADDRESS' FLAG 1 
WRAP AROUND FLAG. FORMAT FROM HIGH TO LOW 
CYLINDER NLWBER 

DEVICE MAP FOR APT. DEVMP*2 IS STORAGE ^OR DEVICE MAP 
IF > 0. BAD SECTOR FILE AVAILABLE FROM PACK 
IF > 0, UPDATE BAD SECTOR FILE AT 'EOP' 
HEADER BIT INDICATOR FOR FIRST HEADER WORD; 
81115 1 AND 8ITK=1. GOOD SECTOR 
BIT15-0 AND 8IT14 1, MFG BAD SECTOR 
BIT15=1 AND BIT14=0, USR BAD SECTOR 
THE LOW BYTE CONTAINS THE DRIVE NUMBER "^ROM WHICH 
THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
:'XXDP' DEVICE CODE THE RM05/3/2. 



.-THIS »ABLE WILL CONTAIN A COP* OF THE 16 BIT 'MFG' FRE 
MfG16: .8LKW ?56. ;MFG 16 BIT BAD SECTOR TABLE 



DFf IMEt> TAGS 

002<.K 177777 
002*16 177777 



0O2(*20 

0Q-y*22 1 77777 



005424 

004424 1 77777 
004426 177777 



004430 

005450 y77777 
005452 177777 



005434 

005554 }77777 
005556 000000 



005540 
0OS541 
J05542 
005545 
005544 
005546 
005550 
C05551 
005552 
005554 
005556 



000 
000 
000 
000 
000000 
000000 
000 
000 
000000 
005560 
000000 



005560 000000 

005562 000000 

005564 000000 

0055^6 000000 

C05570 000000 



D 5 

MACMC V04.00 4-APR-8' '8:^9:St PA3£ — ' 



• WORD 
.WORD 



-1 
^1 



rnlS TASlE will COMTAIM a copy of the 18 BH 'MFC f]Lt 
MFG18: .BL<W 256. .-"IFG 18 81 T BAD SECTOR TA8Lf 



.8LKW 
.WORD 
.WORD 



256. 
-1 
-1 



'HIS TABLE WILL CONTAIN THE 16 BIT 'USR* FRE IF PACK IS BEING FORMATTED 
IN 16 BIT MODE; ELSE THIS TABLE WILL CONTAIN THE 18 BIT 'USR' FILE IF THE 
PACK IS BEING FORMATTED IN 18 BIT MODE 



USTA8: 



.BLKW 
.WORD 
.WORD 



256. 

-1 

-1 



.-USER BAD SECTOR TABLE 



THIS 'ABLE WILL SAVE THE 18 'USR' FILE IF PACK IS BEING FORMATTED 
IN 16 Bi'T MODE; ELSE THIS TABLE WILL SAVE THE 16 BIT 'USR* FILE IF THE 
PACK IS BEING FORMATTED IN 18 BIT MODE 



USSAV: 



.BLKW 
.WORD 
.WORD 



256. 

-1 

-1 



;USER BAD SECTOR SAVED TABLE 



;CONTAINS A LIST OF CURRENT BAD SECTORS ON THE TRACK BEING FORMATTED 



SECCU: .BLKW 32. 

.WORD -1 
NEX^: .WORD 0 



;MAXJMUM OF 52. BAD SECTORS 

;FLAG, JF NEXT^-I .ALL GOOD SPOT ON 
;THE CURRENT TRACK ARE FORMATTED 



; DATA/PARAMETER BLOCK - USED FOR ALL DRIVE OPERATION 



F-^ITDPB: .BYTE 
.BYTE 
.BYTE 
.BY'E 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 
0 
0 
0 
0 
0 

RM.REG 
0 



DRIVE NUMBER 

OFFSET VALUE OR FMT16. ECI, AND HCI 
COMMAND 

PSEL AND A17 AND A16 

WORD COUNT (NEG) 

BUFFER ADDRESS 

SECTOR ADDRESS 

TRACK ADDRESS 

CYLINDER ADDRESS 

ERROR TABLE POINTER 

STATUS-ERROR INDICATOR 

BIT 15 - 1: ERROR OCCURRED 

BIT 07 = 1: DONE 

BIT 14-10 AND BIT 06-05 

INDICATE TYPE OF ERROR 



;RH/RM REGISTERS STORED HERE AFTER AN OPERATION 
RM.REG; 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 
0 



RMCS1 
RMWC 

RMDA 
RMCS2 







-APR-B" 


I 3 

'8:5v:56 PAGE 7-t 


1\IZ TAGS 












COS 5 72 


000000 






.WORD 


n 

W I 






000000 






yORD 


n 

W 4 


i^rx " • 


005576 


000000 






WORD 


n 




005600 


000000 






WORD 


n 

U a 




005602 


000000 






yQRD 


ft 

U a 




00560^. 


000000 






.WORD 


A 
V 


QMMD1 


005606 


000000 






[word 


0 

V 




005610 


000000 






.WORD 






J05612 


000000 






!wCRD 


n 

w 




'•056U 


000000 






! JORD 


n 






uuuuw 






[word 


n 




005620 


000000 






WORD 


0 


■RMER2 


005622 


000000 






.WORD 


0 


RMMR2 


005624 


000000 






iwORD 


0 


•RMEC1 


005626 


000000 






.WORD 


0 


•RME C2 


005t)?0 


000 






.8VTE 


0 .'SPECIAL DP8 TO WRHE HEADE 


C056?1 


000 






.8VTE 


0 




005652 


000 






BYTE 


0 




C05653 


000 






BYTE 


0 




005634 


1 77776 






.WORD 


-2 


;ONLY TWO WORDS FOR HEADER 


005636 


046224 






WORD 


R8UF 


;BUFFER ADDRESS 


005640 


000 






BYTE 


0 


.•SECTOR 




V\J\J 






.BYTE 


0 


; TRACK 


005642 


000000 






iwORD 


0 


.•CYLINDER ADDRESS 




vvvWV/ 






WORD 


0 


.-ERROR TABLE 














;DONT"SAv'E ANYTHING 


005t>46 


000000 






.WORD 


0 


.•STATUS WORD 








.-PARAMETER LIMIT POINTER 


TABLE 


005650 


005754 


001466 


001330 TA8LE: 


PARI. 822. .MINCYL 




005656 


005764 


001466 


001 326 


PAR2.822..rWXCYL 




005664 


005774 




001334 


PAR3.<i. 


.MJNTRK 




005672 


006004 


V/V/vVV*t 


001532 


PAR4.4. 


.rWXTRK.O 




005702 


0060K 




TA8LE2: 


PAR5 


.-ASCIZ I«1ESSAGE FOR INPUT 


005704 


001466 


001362 




822., DS 


.CYL 




005710 


000004 


vw 1 DO** 




4..DS.rRK 




005714 


000037 






31..8ADSEC 




005720 


006014 




"A3LE5: 


P-^R5 




;ASCi7 MESSAGE FOR INPUT 


005722 


001466 


001562 




822.. D5 


.CYL 




005726 


000004 


vKJ 1 >Oh 




4..DS.TRK 




005732 


000035 






29.,8ADSeC 




005736 


006032 




TA8LE4: 


PAR6 


: ASCI 7 MESSAGE FOR INPU^ 


005740 


001466 


001362 




822.. DS 


-CYL 




005744 


000004 


001364 




4.DS.TRK 




005/50 


047300 


001 344 




20l60..eADSEC 





.•ASCII MESSAGES FOR ADDRESS PARAMETERS 



005754 


115 


117 


116 


PARI : 


.ASCIZ 


/MINCYL 


/ 


005764 


115 


101 


130 


PAR2: 


. ASCIZ 


/MAX CYL 


/ 


005 77A 


'15 


111 


1^6 


PAR 5: 


.ASCIZ 


/MINTRK 


/ 


006004 


'IS 


10T 


150 


PAR4 : 


.ASCIZ 


/MA»(TRK 


/ 



:Z»»«LBO roWWTTE»» 
JSCR DEMVED TAGS 



•MCRO ^04.00 



F 3 

4-APR-81 T8:59:S6 PAGE 7-5 



0060K 
006052 



105 

105 



151 
151 



1U PARS: 
n4 PAR6: 
• EVEN 



.ASCI7 /Cn.TRn,SEC= / 
.ASCIZ /Cn.TRK.BVTE= / 



00605? 0?UU 02'6?A :2^676 TABCAL: .WORD Fi/lCT2.f UNCT5.FUNCU.f UNCT6.FUNCT7 



00606^ 
006066 
006070 
006072 
006074 
006076 
006100 
006102 
UOtiOA 
006106 
C06110 
006112 
0061 U 
OO0II6 
006120 
006122 
006124 
006126 
006130 
006152 
006134 
0061 36 
006140 
006142 
006144 
006146 
006150 
006152 
006154 
006156 
006160 
006162 



006164 
C 06 166 
0061 70 
006172 
006174 
006' 76 
006200 
006202 
006204 
006206 
006210 
006212 



046254 
047240 
050244 
051250 
052254 
055260 
054264 
05S270 
056274 
057300 
060504 
061310 
062514 
065520 
064524 
065330 
066534 
067540 
070544 
071550 
072354 
073360 
074 564 
075570 
076574 
077^.00 
100404 
101410 
102414 
105420 
104424 
105450 



000402 
001004 
001406 
002010 
002412 
003014 
005416 
004020 
004422 
005024 
005426 
006050 
0064 5: 



; SECTOR BUFFER 


ADDRESS TABLE 










ADRTBL : .WORD 


BU'P 




ADDRESS 


OF 


SECTOR 


0 


.WORD 


BUFP*<5i6. 


•1.> , 


ADDRESS 


OF 


SECTOR 


1, 


.WORD 


BUFP*<516. 


•2.> . 


ADDRESS 


OF 


SECTOR 


2. 


.WORD 


BUFP*<516. 


'5.> , 


ADDRESS 


OF 


SECTOR 


3. 


.WORD 


BUFP*<516. 


»4.> , 


ADDRESS 


OF 


SECTOR 


4. 


.WORD 


BUFP*<516. 


»5.> 


ADDRESS 


OF 


SECTOR 


5. 


.WORD 


BUFP*<516. 


»6.> 


ADDRESS 


OF 


SECTOR 


6. 


.WORD 


BUFP*<516. 


*7.> 


ADDRESS 


OF 


SECTOR 


7. 


.WORD 


8UFP*<516. 


»8.> 


•ADDRESS 


OF 


SECTOR 


8. 


.WORD 


BUf P*<516. 


»9.> 


•ADDRESS 


OF 


SECTOR 


9. 


.WORD 


BUFP*<516. 


»10.> 


; ADDRESS 


OF 


SECTOR 


10. 


.WORD 


BUFP*<5^6. 


»11.> . 


ADDRESS 


OF 


SECTOR 


'1. 


.WORD 


BUFP*<516. 


»12.> 


■ADDRESS 


OF 


SECTOR 


12. 


.WORD 


8UFP*<516. 


•15. > 


•ADDRESS 


OF 


SECTOR 


13. 


.WORD 


BUFP*<516. 


•14. > 


•ADDRESS 


OF 


SECTOR 


14. 


.WORD 


8UFP*<516. 


•15. > 


•ADDRESS 


OF 


SECTOR 


15. 


.WORD 


BUFP*<516. 


•16. > 


•ADDRESS 


OF 


SECTOR 


16. 


.WORD 


8UFP*<516. 


•1 7.> 


■ADDRESS 


OF 


SECTOR 


17. 


.WORD 


01 ir Da q 1 ^ 
BUr r* v5 1 0 . 


» IO.> 


■ADDRESS 


OF 


SECTOR 


18. 


.WORD 


8UFP*<516. 


► 19. > 


•ADDRESS 


OF 


SECTOR 


19. 


.WORD 


8UFP*<516. 


►20. > 


•ADDRESS 


OF 


SECTOR 


20. 


.WORD 


BUFP*<516. 


•21. > 


•ADDRESS 


OF 


SECTOR 


21. 


-WORD 


8UFP*<516. 


•22. > 


•ADDRESS 


OF 


SECTOR 


22. 


.WORD 


8UFP*<516. 


•23. > 


•ADDRESS 


OF 


SECTOR 


23. 


• WORD 


BUFP*<516. 


•24.> 


; ADDRESS 


OF 


SECTOR 


24. 


.WORD 


8UFP*<516. 


•25. > 


; ADDRESS 


OF 


SECTOR 


25. 


.WORD 


BUfP*<516. 


•26. > . 


•ADDRESS 


OF 


SECTOR 


26. 


.WORD 


8UFP*<516. 


•27.> 


•ADDRESS 


OF 


SECTOR 


27. 


.WORD 


8UFP*<516. 


•28. > 


ADDRESS 


OF 


SECTOR 


28. 


.WORD 


8UFP*<516. 


'29. > , 


•ADDRESS 


OF 


SECTOR 


29. 


.WORD 


BUFP*<516. 


•30. > 


•ADDRESS 


OF 


SECTOR 


50. 


.WORD 


aiFP*<516. 


►51. > . 


•ADDRESS 


OF 


SECTOR 


51. 



;^CMAiNJNG WORD COUNT TABLE 



.WORD 


258. 






■REfnAINiNG 


WORD 


COUNT 


AFTER 


SECTOR 


0 


.WORD 


258. 


♦<258. 


•l.> 


•REMAINING 


WORD 


COUNT 


AFTER 


SECTOR 


1. 


.WORD 


258. 


*^258. 


•2.> 


REMAINING 


WORD 


COUNT 


AFTER 


SECTOR 


2. 


.WORD 


258. 


♦<258. 


•5.> 


■REMAINING 


WORD 


COUNT 


AFTER 


SECTOR 


■J • 


.WORD 


258. 


♦<258.' 


•4.> 


•REMAINING 


WORD 


COUNT 


AFTER 


SECTOR 


4. 


.WORD 


258. 


♦<258.' 


•5.> 


•REMAINING WORD 


COUNT 


AFTER 


SECTOR 


5. 


.WORD 


258. 


♦<258.' 


•6.> 


•REMAINING 


WORD 


COUNT 


AFTER 


SECTOR 


6. 


.WORD 


258. 


♦<258. 


»7.> 


•REMAINING 


WORD 


COUNT 


AFTER 


SECTOR 


7. 


.WORD 


258. 


♦<258. 


•8.> 


•REMAINING 


WORD 


COUNT 


AFTER 


SECTOR 


8. 


.WORD 


258. 


♦<258. 


•9.> 


•REMAINING 


WORD 


COUNl 


AFTER 


SEFTOR 


9. 


.WORD 


258. 


♦<258. 


•10. > 


■REMAINING 


WORD 


COUNT 


AFTER 


SECTOR 


10. 


.WORD 


258. 


♦<258. 


•11. > 


•REMAINING 


WORD 


COUNT 


AF TER 


SECTOR 




.WORD 


^58. 


♦<258. 


''2.- . 


REMAINING 


WORD 


'O'JNT 


Af Tfc 


'.prTOfi 









006216 


007034 


.WORD 


006? 20 


007436 


• WORD 


D06222 


0^0040 


.wOt^O 


006224 


010442 


.yORD 


006226 


011044 


.WORD 


006250 


011446 


.WORD 


006232 


012050 


.WORD 


006234 


012452 


.WORD 


006236 


013054 


.WORD 


006240 


015456 


.WORD 


006242 


014060 


.WORD 


006244 


014462 


.WORD 


006246 


015064 


.WORD 


006250 


01 5466 


.WORD 


006252 


016070 


.WORD 


006254 


016472 


.WORD 


006256 


01 rz7c 


.WORD 


C 06260 




.WORD 


006262 


020100 


.WORD 


006264 


001166 


9VTE16: .WORD 


006266 


002354 


.WORD 


006270 


003542 


.WORD 


006272 


004750 


.WORD 


006274 


006116 


.WORD 


006276 


007504 


.WORD 


006300 


010472 


.WORD 


006302 


011660 


.WORD 


006304 


013046 


.WORD 


006506 


014234 


.WORD 


006310 


015422 


.WORD 


C06312 


016610 


.WORD 


006314 


017776 


.WORD 


006316 


021164 


.WORD 


006320 


022352 


.WORD 


006322 


025540 


• WORD 


006324 


024726 


• WORD 


006326 


026114 


.WORD 


006330 


027302 


.WORD 


006332 


050470 


.WORD 


006334 


051656 


• WORD 


C06536 


035044 


.WORD 


006340 


034252 


• WORD 


006 542 


055420 


.WORD 


006344 


056606 


.WORD 


006346 


037774 


.WORD 


006350 


041162 


.WORD 


006552 


042350 


.WORD 


006354 


045556 


.WORD 


006356 


044724 


.WORD 


006360 


046112 


.WORD 


006362 


047300 


.WORD 


006364 


001240 


•3 * tic: . wUHU 


006366 


002500 


.WORD 


006370 


003740 


.WORD 


00o572 


0C5200 


.WORD 



G 3 
»: 5^:56 ^AGE 



258.*<258.«13.> 
258.*<258.«14.> 
258.*<258.«15.> 
258.*<258.*16.> 
?58.*<258.*17.> 
258.*<258.»18.> 
258.*<258.»19.> 
258.*<258.«20.> 
258.*<258.«21.> 
253.*<258.«22.> 
258.*<258.«23.> 
258.*<258.*24.> 
258.*<258.«25.> 
258.*<258.«26.> 
258.*<258.«27.> 
258. ♦^258. •28. > 
258.-»<258.«29.> 
258.*<258.«30.> 
258.*<258.«31.> 

630. 

630.*<630.»1.> 

630.*<650.»2.> 

650.*<630.*3.> 

650.*<650.«4.> 

650.*<630.*5.> 

630.*<650.*6.> 

650.*<650.«7.> 

650.*<630.*8.> 

630.*<630.*9.> 

630.*<630.«10.> 

630.*<630.«11.> 

630. ♦<630. •12. > 

630.*<630,«13.> 

630.*<630.*14.> 

650.*<630.«15.> 

630.*<630.*16.> 

650.*<650.«17.> 

650.*<630.«18.> 

630.*<630.«19.> 

650.*<630.«20.> 

630.*<650.«21.> 

630.*<630.«22.> 

630.*<630.«25.> 

630.*<630.»24.> 

630.*<650.^25.> 

630.*<6?0.*26.> 

630. ♦<630. •27. > 

630.*<630.«28.> 

630,*<630.^29.> 

630.*<630.^50.> 

630.*<630.*31.> 

672. 

672.*<672.«1.^ 
672.«<672.«2.> 
67?.*<672.^5.> 



REMAINING WORD COUNT AfTEF, SECTOR 15. 
REMAINING WC/RD COUNT AFTER SECTOR U. 
REMAINING WORD COUNT AFTEH SECTOR 15. 
REMAINING WORD COUNT AFTER SECTOR 16. 
REMAINING WORD COUNT AFTER SECTOR V. 
REMAINING WORD COUNT AFTER SECTOR 18. 
REMAINING WORD COUNT AFTER SECTOR 19. 
REMAINING WORD COUNT AFTER SECTOR 20. 
REMAINING WORD COUNT AFTER SECTOR 2i. 
REMAINING WORD COUNT AFTER SECTOR 22. 
REMAINING WORD COUNT AFTER SECTOR 25. 
REMAINING WORD COUNT AFTER SECTOR 24. 
REMAINING WORD COUNT AFTER SECTOR 25. 
REMAINING WORD COUNT AFTER SECTOR 26. 
REMAINING WORD COUNT AFTER SECTOR 27. 
REMAINING WORD COUNT AFTER SECTOR 28. 
REMAINING WORD COUNT AFTER SECTOR 2'>. 
REMAINING WORD COUNT AFTER SECTOR 50. 
REMAINING WORD COUNT AFTER SECTOR 51. 



Jf FINED TAGS 

006574 0064^.0 

006376 007700 

006A00 onuo 

006402 012400 

006404 015640 

006406 015100 

306410 016340 

006412 017600 

006414 021340 

006416 022300 

006420 023540 

006422 025000 

006424 026240 

006426 027500 

006430 030740 

006432 032200 

006434 033440 

006436 034700 

006440 036140 

G0644? 037400 

006444 040640 

006446 042100 

006450 043340 

006452 044600 

006454 046040 

006456 047300 



M 3 

VA '-L .^U.'J. '8:39:^6 PA&t 7-^ 



.WORD 


i "7 ^ 


♦<6'^2.' 


•4. > 


.WORD 


b72* 


*<tfd.* 


n. > 




672. 


i 7*5 M 


'6. > 


.WORD 


672. 


♦<6'^2. ' 


h 7 X 


.WORD 


672. 


*^^70 


'8. > 


.WO.'^D 


bfc. 




•V. > 


.WORD 


tf d. 


*<bfd.' 


MU. > 


.WORD 


672. 


*<bfd.' 


.11 s. 

► 1 1 . > 


.WORD 


bfi. 


A^^70 . 


.10 ^ 


.WORD 


Of d. 


*<bfd.* 


M 5. > 


.WORD 


7*5 


*<bfd.^ 


. 1 / 


. WuRD 


^ 7 J 

ore. 


*<btc. 


» 1 J . > 


.WORD 


t)f d. 


*<bfd. 


» iO. > 


1 inn ft 

.WORD 


^70 
bf d. 


*<bf d. 


» ' 7 -v 


.WORD 


bf d. 


*<bf d. 


» 10. > 


.WORD 


bfd. 


*<Ofd. 


" 1 7. > 


. WCKD 


b72. 


*<b72. 


► on -s 


.WORD 


b72. 


*<b72. 


• 01 s 

*d\ .> 


.WORD 


b72. 


*<b72. 


» 00 s 
*dc .> 


1 ir\oft 

.WORD 


672. 


♦<672. 


.07 s 


unPD 
. wunL' 


672. 


♦<672. 




.WORD 


b72.*<b72. 


•25. > 


.WORD 


b72. 


♦<672. 


•26. > 


.WORD 


672. 


♦<672. 


•27. > 


.WORD 


b72. 


♦<672. 


•28. > 


.WORD 


672. 


♦<672. 


•29. > 



.EVEN 



'ZfWLBO W105/^/? fCPMATTfR 
ERROR POINTER tABtE 
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.SariL ERROR POINTER TABLf 

•THIS TABLE CONTAINS THE INFORMATION fO« FAC^ fRROR ThAT CAN OCCU*<. 

•THE INfORW.TICN IS OBTAINED BV USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEM8. THIS Nt/BER INDICATES WHICH ITEM IN THE TASlE IS PERTlNfN'. 

•N0TE1: IF SJTEMB IS 0 THE ONLV PERTINENT DATA IS ($fRRP(J. 

•N0TE2: EACH HEM IN THE TABLE CONTAINS i, POINTERS fXPiAINED AS fOlLOv.'. 



EM 
DH 
DT 
Df 



POINTS TO THE ERROR MESSAGE 

POINTS TO THE DATA HEADER 

POINTS TO THE DATA 

POINTS TO THE DATA FORMAT 



006460 



006^60 

5 C06A62 

6 00646A 
r 006466 
8 

9 



1 1 

13 
K 
IS 
16 
1/ 
18 
19 

:'o 

?2 

^3 

2^ 
?5 
26 
27 
?8 
29 
50 
31 
3? 
33 
34 
3S 
56 
'J 
58 
59 
4C 

4; 



006470 
006472 
006474 
0064^6 



006500 
006502 
006504 
006506 



006510 
006512 
006514 
006516 



006520 
006522 
006524 
006526 



006530 
006532 
006534 
0065 56 



042446 
043754 
045270 
045642 



042520 
044002 
045306 
045646 



042556 
044054 
045322 
045652 



342614 
344125 
045336 
045656 



000000 
000000 
000000 
000000 



042705 
044210 
045354 
045662 



SERRTB: 
;PRR0R T 



EMI 
DHl 
DTI 
DM 



.•ERROR 2 



EM2 

DH2 
0T2 
Of 2 



.-ERROR 3 



EM3 
Dh3 
DT3 
DF3 



;fcRROR 4 



EM4 

DH4 
DT4 
DF4 



; ERROR 5 



0 
0 
0 
0 



; ERROR 6 



EM6 

DH6 
DT6 
Df6 



;RH CONTROLLER INTERRUPT OCCURRED (RMAS=0) 



;UNEXPECTED ATTENTION OCCURRED 



.•MASSBUS PARITY ERROR (MCPE-D 



.-MA-iSBUS PARITY ERROR (PAR 1) 



.■UNUSED 



;RH CONTROLLER DIDN'T RESPOND TO ADDRESSING 



POINTER taBlE 



45 

46 0065A0 

47 006542 

48 006544 

49 006546 
50 

51 
S? 

53 006550 

54 006552 

55 006554 

56 006556 
57 

58 
59 

60 006560 

61 006562 

62 C06564 

63 006566 
64 

65 
66 

67 006570 

68 006572 

69 006574 

70 006576 
71 

72 
75 

74 006600 

75 006602 

76 006604 

77 006606 
78 

79 
80 

81 006610 

82 006612 

83 006614 

84 006616 
85 

86 
87 

88 006620 

89 006622 

90 006624 

91 006626 
92 

93 
9« 

95 006630 

96 006632 

97 00663A 

98 006636 



042760 
045015 
045356 
045752 



04 5034 
044223 
045366 
045666 



043052 
044223 
045366 
045666 



043110 
044223 
045366 
045666 



043153 
044223 
045366 
045666 



043174 
044223 
045366 
045666 



043217 
C'.4223 
045366 
045666 



043263 
044223 
045366 
045666 



: ERROR 7 



EM7 

DH23 

DT7 

DF25 



; ERROR 10 



E«10 

DHIO 

ono 

DF10 



; ERROR 11 



EMU 
DHIO 
DT10 
DF10 



.ERROR 12 



EMI 2 
DHIO 
DT10 
DF10 



.-ERROR 13 



EW13 
DHIO 
DT10 
DF10 



; ERROR 14 



EMU 
DHIO 

Dno 

DF10 



.ERROR 15 



EMI 5 
DHIO 
DTIO 
DF10 



.•ERROR 16 



EM16 
OHIO 
DTIO 
DF10 



J 3 
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; TRACK/SECTOR FIELD IN HEADER IS NO^ i ORhf ' T 



.•DRIVE OFFLINE 



.-PERSISTENT DRIVE UNSAFE ERROR 



.-UNCORRECTABLE MASS8US PARITY ERROR 



; SOFTWARE TIMEOUT 



;DRWE UNSAFE ERROR 



; CONTROLLER/DRIVE ERROR DURING WRITE 



;CONTROLlER/DRIVE ERROR DURING WRI^E CHECK 



\'S«L8w f<MCS/^/^ FO*l«WT'tti 
FRROR POINTER TABLfc 

'01 

102 006640 043355 
105 006642 04445? 

104 006644 045440 

105 006646 045702 
106 

107 
^08 

109 006650 C43413 

no 006652 044521 

m 006654 045452 

112 006656 045706 

1'5 

'14 

115 

116 006660 045451 

117 006662 044225 
1^8 006664 045366 
119 006666 045666 
VO 

121 
122 

125 006670 043522 

124 006672 C44225 

125 006674 045366 

126 006676 045666 
127 

128 
129 

150 006700 043572 

131 006702 045015 

132 006704 045534 
153 006706 045752 
154 

135 
136 

157 006710 043642 

138 006712 045054 

159 006714 045544 

140 006716 04*: 752 

HI 

142 

143 

144 006720 043664 

145 006722 045227 
'46 006724 045632 
'47 006726 045752 



MACHO /04.00 4-4PR-ei 



.■ERROR 17 

EMI 7 
DH17 
D117 
DF17 

.•ERROR 20 

EM20 
DH20 
DT20 
DF20 

.•ERROR 21 

EM21 
DHIO 
DTIO 
DF10 

; ERROR 22 

EM22 
DHIO 
DTIO 
DF10 

.-ERROR 23 

EM23 
DH23 
0^23 
DF25 

.-ERROR 24 

EM24 
DH24 
D12; 
DF24 

.•ERROR 25 

EM25 
DH25 
DT25 
DF25 
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.•RETRIES NOT SUCESSfUL - SECTOR MOT ACCtP'Aftlf 



.•DATA ERROR DURING WRITE CHECK 



; CONTROLLER/DRIVE ERROR VERIFYING HEADERS 



.••HCE' OR 'HCRC ERROR VERIFYING HEADERj 



; CYLINDER FIELD IN HtADER IS NOT CORRECT 



.-WRITE CHECK ERROR 



.•ILLEGAL BAD SECTOR 



SfO 00% 
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fO 0057 



2 
5 
<> 
5 

6 



7 
8 
I* 

10 
11 
12 
1« 

15 
^6 
17 

18 
19 
?0 
21 



22 
2^ 
24 

25 
26 



.-THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 



006730 
006732 
006734 
006736 
006742 

007002 
007002 
007004 
007006 



007012 
007016 

007020 
007026 



007034 
007036 
007044 
007050 
007052 



007152 
007156 
007164 
007172 
007200 
007206 

007210 

C07?V 



011600 
005740 
022626 
: 04401 
000417 



010046 
104402 
000240 



BADTMO: MOV 

TST 



00674.4 



.•;65$: 
64$: 



007010 000411 



CMP 

TYPE 
BR 

.ASCIZ 

MOV 

TYPOC 
NOP 

BR 



(SP).ftO 
-(RO) 

(SP)*.(SP)» 

.65$ 

64$ 

<CRLF>/UNEXPE 
RO,-(SP) 



TST1 



005037 
000406 

012737 
012737 



C00240 
012737 
005227 
001375 
000005 



001270 



000001 



000001 
000000 



001374 
001270 



001214 



.S8TTL 
START: 

START1 



START OF PROGRAM 



CLR 
BR 

MOV 
MOV 



$CDU1 

TST1 

*1 .CHGADR 
#-1.$CDWl 



SAVE PC WHERE THE TIME OUT OftURfn 
ADJUST PC -2 
RESTORE STACK POINTER 
.-TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 
CTED BUS TIMEOUT. PC=/ 

.•SETUP FOR TYPING OUT PC 

;PUT 'HALT(O)' INSTRUCTION HERE IF vOUWlSH 
;T0 STOP ON UNEXPECTED TIMEOUT. 
.•BRANCH TO START 



.-DISABLE USE OF UTILITY ROUTINES 



.•ENABLE CHANGE OF 'RH/RM BUS ADDRESS* 
.■ENABLE USE OF UTILITY ROUTINES 



TST1 : 



NOP 
MOV 
INC 
BNE 
RESET 



*1.$TESTN 

*0 

.-4 



;SFT TEST NUMBER IN APT MAIL BOX 
TTY LOOP. WAIT FOR INCREMENT 
OF WORD 

CLEAR THE WORLD 



,S8TTL INITIALIZE THE COMMON TAGS 
;; CLEAR THE COMMON TAGS ($CMTAG) AREA 



007054 


012706 


001114 




MOV 


*$CMTAG,R6 


.•FIRST LOCATION TO BE CLEARED 


007060 


005026 






CLR 


(R6)* 


.•CLEAR MEMORY LOCATION 


007062 


022706 


001154 




CMP 


*SWR.R6 


;DONE? 


007066 


001374 






BNE 


.-6 


.•LOOP BACK IF NO 


007070 


012706 


001100 




MOV 


ASTACK.SP 


.•SETUP THE STACK POINTER 










.-.•INITIALIZE A 


FEW VECTORS 




007074 


012737 


023330 


000030 


MOV 


#$ERROR.a*EMTVEC 


.•;EMT VECTOR FOR ERROR ROUTINE 


007102 


012737 


000340 


000032 


MOV 


*340.a#EMTVEC+2 ; 


.•LEVEL 7 


007110 


012737 


030046 


000034 


MOV 


*$rRAP.a*TRAPVEC 


;;TRAP VECTOR FOR TRAP CALLS 


C07116 


012737 


000340 


000036 


MCV 


*340.a*TRAPVEC*2; 


LEVEL 7 


007124 


012737 


030132 


000024 


MOV 


/y$PWRDN,S#PWRVEC 


;, -POWER FAILURE VECTOR 


007132 


012737 


000340 


000026 


MOV 


*340.a*PWRVEC*2 ; 


.•LEVEL 7 


007140 


005037 


001176 




CLR 


$E SCAPE 


.•CLEAR THE ESCAPE ON ERROR ADDRESS 


007144 


112737 


000001 


001131 


M0V8 


*1.$ERMAX 


.•ALLOW ONE ERROR PER TEST 



015746 
012737 
012737 
012737 

001012 

000403 
012716 



000004 
007212 
177570 
177570 
U7777 



000004 
001154 
001156 
1 71 746 



.-.-SIZE FOR A 
;;EQUAl TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
"-V. SETUP FOR A SOFTWARE SWITCH REGISTER. 



64$: 



BR 

M0>' 



a#ERRVEC,-(SP) 
#64$,a*ERRVEC 
#D<^WR,SWR 
*DDISP, DISPLAY 

*-1 .aswR 

66$ 
65$ 

*65$.(SP) 



SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE 5WICH REGISTER 
AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT -1 
BRANCH IF NO TIMEOUT 
SET UP FOR TRAP RETUHN 



.B' t^MOS/^/^ FORMATTER 
:4..IZE THE COmCN TAGS 



MAc«o .c^.:-c 
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007216 

007220 

00723^ 

007240 
007244 
U07252 
007254 
007262 

27 

28 007262 

29 007270 
30 

31 

007276 
007302 
007304 
C07310 

007552 

007352 
007356 
007360 
007366 
007370 
007376 
007400 
007402 
007404 
007412 

32 
33 
34 
35 

36 007412 

37 007416 
58 007424 

39 007426 

40 CO 74 34 

41 007442 

42 007444 

43 007450 

44 007454 

45 007456 
007462 



000002 
012737 
012737 
012637 

005037 
132737 
001403 
012737 



012737 
012737 



005227 
001023 
104401 
000420 



00575^ 
001012 
123727 
001406 
023727 
001005 
104406 
000403 
112737 



005037 
122737 
001160 
013737 
122737 
103002 
105037 
005737 
001425 
104401 
000412 



C00176 
000174 
000004 

001216 
000200 

001232 



006730 
000300 



y77777 
007312 

000042 
001250 
001154 



001412 
00001b 

000040 
000007 

001412 
000042 

00746A 



007510 

46 007510 005046 

47 007512 113716 001412 

48 007516 104403 
001 
000 

51 007522 104401 001205 

52 007526 000517 



49 007520 

50 00752^ 



001154 
001156 



001231 
001 1 54 



000004 
000006 



000001 
0001 76 



000001 001150 



000041 

001412 
001412 



65S: 
66S: 



67$: 
.-SETUP 



.S8TTL 

;;TVPE 



;;69$: 

68$: 

.S8TTL 



mi 

MOV 
MOV 

CLR 
BIT8 
BEQ 
MOV 



*SWREG.SWR ;;POJNT TO SOMwARf SwR 

#DISPREG. DISPLAY 

(SP)*.a#ERRVEC .-.'RESTORE ERROR VECTOR 



$PASS 

#APTSIZE.$ENVM 
67$ 

#$SWREG,SWR 



"TIMEOUT" TRAP VECTOR FOR 
MOV #8AD'M0.ERRVEC 



MOV 



#PR6.ERRVEC*2 .-LEVEL 6 



CLEAR PASS COUNT 
TEST USER SIZE UNDER APT 
YES. USE NON-APT SWITCH 
NO. USE APT SWITCH REGISTER 



UNEXPECTED BUS TIMEOUTS 
.•SETUP FOR UNEXPECTED TIMEOUT 



TYPE PROGRAM NAME 

THE NAME OF THE PROGRAM 

INC #-1 

BNE 68$ 

TYPE .69$ 

BR 68$ 

.ASCIZ <CRLF>aCZRML80 



IF FIRST PASS 
FIRST TIME? 
BRANCH IF NO 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
RM05/3/2 FORMATTERa<CRLF> 



70$: 
71$: 



GET 
TST 
BNE 
CMP6 
BEQ 
CMP 
BNE 
GTSWR 
BR 

M0V8 



VALUE FOR 
a«42 
70$ 

$ENV.#1 
70$ 

SWR.«SWREG 
71$ 



71$ 

*1.$AUT08 



SOFTWARE SWITCH REGISTER 

ARE WE RUNNING UNDER XXDP/ACT? 
BRANCH IF YES 
ARE WE RUNNING LWDER APT? 
BRANCH IF YES 

SOFTWARE SWITCH REG SELECTED? 
BRANCH IF NO 
GET SOFT -SWR SETTINGS 



;;SET AUTO-MODE INDICATOR 



.-THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
.■PAPER TAPE (MANUAL), ACT11. XXDP CHAIN OR DUMP 



2$: 



;;75$; 
72$: 



CLR 


XXDP 


CMPS 


/n6.a*4i 


avE 


4$ 


MOV 


3X^40. XXDP 


CMP8 


*7,XXDP 


BHIS 


2$ 


CLR8 


XXDP 


TST 


Wf42 


BEQ 


3$ 


TYPE 


.73$ 


BR 


72$ 


•ASCIZ 


<CRLF>/N0^ 


CLR 


-(SP) 


M0V6 


XXDP. (SP) 


TYPOS 




• BKTE 


1 


.BYTE 


0 


TVPE 


.$CRLF 


BR 


4$ 



■CLEAR 'XXDP' LOAD DEVICE STORAGE 
; LOADED FROM AN RM05/3/2 ? 
;8R IF NOT 

;GET DEVICE INDICATOR AND NUMBER 
IS IT A VALID NUMBER ? 
;YES 

;N0. DEFAULT TO DRIVE 0 
; CHAIN MODE OR ACT11 AUTO ACCEPT 
rBR IF NEITHER 

TYPE ASCIZ STRING 
.-GET OVER THE ASCIZ 
TESTING DRIVE / 



CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE THE ADDRESS 
ONLY 1 CHARACTER 
SUPRESS LEADING ZEROS 
CR-LF 

GET NUMBER OF DRWES 



Jt'M. bu FORMATTER HArRO V04.00 

A' ^ALUE FOR SOFTWARE SWITCH REGISTER 



S3 

G07550 

55 007534 

56 007536 
007542 

007564 

57 007564 

58 007566 

59 007572 

60 007574 

61 007575 
6? 007576 

007602 

007666 
63 007666 
007672 

007766 

67 007766 

68 007774 
69 

70 010000 

71 010004 

72 010006 

73 010012 

74 010020 

75 010026 

76 010026 

77 010032 

78 010034 

79 010040 

80 01004? 

81 010050 

82 010056 

83 010062 

84 010064 

85 010072 
86 

87 
88 
89 

90 010100 

91 010104 

92 010110 

93 010114 
04 010122 

95 010130 

96 010134 

97 010136 

98 010144 

99 010146 
TOO 010152 
lot 010154 

102 010160 

103 0'0164 



005227 
001114 
104401 
000410 



005046 
113716 
104403 
001 
000 
104401 
000431 



104401 
000435 



012737 
004737 

105737 
001010 
004737 
013737 
013737 

105737 
001422 
105737 
001406 
113737 
013737 
005737 
001406 
013737 
013737 



004737 
004737 
013700 
012760 
012737 
005227 
001404 
032777 
001 11 3 
005037 
005004 
104401 
104401 
010446 



\77777 
007544 

001412 

007604 
007674 



007012 
024414 

001 1 50 

045756 

001274 
001276 

001230 

001260 

001260 
001276 
001264 

001264 
001274 



017360 
030466 
030456 
000040 
y77777 
-{77777 



3$: 



;;75S: 
74$: 



001372 



030456 
030460 



001276 
030460 



001274 
030456 



;;77$: 
76$: 



;;78$: 
4$: 



5$: 



6$: 



4-APR-81 



INC 
BNE 
TYPE 
BR 

.ASCIZ 

CLR 

MOVB 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCJZ 

TYPE 
BR 

.ASCJZ 

MOV 
JSR 

TST8 

BNE 

JSR 

MOV 

MOV 

TST8 

BEO 

TST8 

BEG 

M0V8 

MOV 

TST 

BEO 

MOV 

MOV 
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*-1 
4$ 
.75$ 
74$ 



>E0 0039 



<CRLF>/TO TEST DRIVE / 



FIRST TIME THRU HERE ? 
NO 

.•TYPE ASCIZ STRING 
.GET OVER THE ASCIZ 



— ( SP) 
XXDP.(SP) 

1 

0 

.77$ 
76$ 



CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE DRIVE ADDRESS 
ONLY 1 CHARACTER 
SUPRESS LEADING ZEROS 
;TYPE ASCJZ STRING 
;GET OVER THE ASCJZ 



/. HALT PROGRAM. REMOVE RRDP PACK AND REPLACE IT/<CRlF> 

.78$ ;;^YPE ASCJZ STRING 

4$ ;;GET OVER THE ASCJZ 

/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /«rCRLF> 



tfSTART.CNFLC 
PC,$TKINT 

$AUTOB 
5$ 

PC.8USADR 

$RW\DP,RMADR 
SRMVEC.RMVEC 

$ENV 
SETVEC 
$VECT1 
6$ 

$VECT1.$RMVtC 

$RMVEC.RMVEv. 

$8ASE 

SETVEC 

$8ASE.$RMADR 
$RMADR,RMADR 



.••CONTROL C ADDRESS 

.•TURN ON THE KEYBOARD INTERRUrT 

RUNNING AUTO MODE ? 
BR IF YES 

CHECK THE RH/RM ADDRESS 

RH/RM ADDRESS 

RH/RM VECTOR ADDRESS 

RUN UNDER APT MODE? 

NO. DO NOT .OAD FROM E-TA8LE 

UUT INTERRUPT VECTOR 

DO NOT CHANGE Ih 0 

NEW VUUE 

RH/RM VECTOR 

UUT BASE REGISTER ADDRESS 
DO NOT CHANGE IF - 0 
NEW BASE ADDRESS 
RH/RM ADDRESS 



.•DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE 
.•PROGRAM WILL USE 



000010 
030416 



000004 171010 

001400 

036555 
001205 



SETVEC: JSR PC.ST.CLK 

JSR PC.RMINIT 

MOV RMADR.RO 

MOV #CLR.RMCS2(R0) 

MOV *-1.SAVEFG 

INC *-1 

BEO 1$ 

BIT tfSW02.aSWR 

BNE 12$ 

1$: CLR DEVMP 

CLR R4 

TYPE ,UNSTAT 

2$: TYPE .$CRLF 

MOV R4,-(SP) 



START THE CLOCK 
INITIALIZE THE RM DRIVER 
GET BASE ADDRESS 
CLEAR MASS8US 

SET THE SAVE REGISTERS FLAG 
FIRST TIME THRU HERE ? 
8R IF NO 

TYPEOUT THE DRIVE STATUS TABLE 

BR IF NO 

CLEAR DEVICE MAP 

DRIVE TABLE POINTER 

TYPE 'UNIT STATUS* 

CR-LF 

;SAVE R4 FOR TYPE OUT 



4_APP-8' 



104 
105 
106 
'07 
•08 
10<> 

no 

Ml 
n2 

1U 
115 
116 
M7 

I'B 

'19 

•20 

121 

T22 

125 

'2<. 

12S 

126 

127 

128 

'29 

15u 

15i 

'12 

136 
137 
138 
'39 
UO 
K1 
U2 
K3 
U4 
U5 
K6 
1A7 
U8 
'49 
'50 
'51 
'52 



010166 
010170 
010171 
010172 
010176 
010202 
010204 

010206 
010212 
010214 
010216 
010222 

010224 
010230 

010232 
CI 02 36 

010240 
010244 

010246 
010252 
010254 
010260 
010262 
010266 

010270 
010274 
010302 
010310 
010314 
010316 
010322 
010330 
010334 
010336 
01 0344 
010350 
010352 

010360 
010362 

010364 
010366 
010372 
010374 
010402 



104403 
002 
000 
104401 
105764 
100<,16 
001020 

105764 
001404 
100006 
104401 
000460 

104401 
000455 

104401 
000424 

104401 
000421 

005737 
001406 
123704 
001003 
104401 
000436 

10440" 
156437 
013737 
104401 
005000 
116400 
012737 
122700 
001411 
012737 
122700 
001403 
012737 

104401 
000000 

005204 
020427 
001272 
013737 
104401 



0366^7 
030340 



030350 

036453 

036474 

036432 

0365 T 

001412 
001412 
036521 



036443 
030444 
001400 
036621 

030550 
036543 
000004 

036536 
000005 

036550 



000010 

001402 
001205 



3$: 
4S: 

5$: 
6$: 



001400 
001402 



7$: 



8$: 



010362 
010362 
010362 

9$: 
10S: 

11$: 

001400 12$: 



TVPOS 

.9vn 

.8VTE 

TvPE 

TST8 

Bni 

BNE 

TST8 

BEQ 

BPL 

TYPE 

BR 

irPE 
BR 

-ypE 
BR 

TYPE 
BR 

TST 

BEQ 

CMP8 

BNE 

TYPE 

BR 

'YPE 

BIS8 

»10V 

TYPE 

CLR 

wove 

MOV 

CI«IP9 

BEQ 

MOV 

CMP8 

BEQ 

MOV 

TYPfc 
.WORD 

JNC 
CMP 
BNE 
MOV 
TYPE 



B 4 

'8:39:S6 PAGE 9-< 



0 

.8LNKb4 

DRVSTA'R4> 

5$ 

6$ 

DR/'YP(R4) 

3$ 

4$ 

.NOTRM 
11$ 

.NOTPRS 
11$ 

.UNTOFf 
8$ 

.NOTSAF 
8$ 

XXDP 
7$ 

XXDP,R4 
7$ 

.LODEV 
11$ 



.-TYPE DRIVE NlHBER 
;G0 TYPE— OCT At ASCII 
.•TYPE 2 DIGIT'S) 
.•SUPPRESS LEADING ZEROS 
TVPE 4 SPACES 
CHECK DRIVE'S STATUS 
BR IF IWSAFE 
8R IF ONLINE 

SEE F OFFLINE OR NONfKl^'»\' 

8R IF NONEXISTENT 

BR IF OFFLINE 

DRIVE NOT AN RM05/3/2 

CHEC< NEXT DRIVc 

.•DRIVE NOT PRESENT 
.•CHECK NEXT DRIVE 

.•DRIVE OFFLINE 
;PRINT DRIVE TYPE 

; DRIVE UNSAFE 
.•PRINT DRIVE TYPE 

LOADED FROM THIS DEi^ICE 
8fi IF NO 

LOADED FROM THIS DRIVE "» 
8R IF NU 

DRIVE IS LOAD DEVICE 



.UNTON 

ATA8IT(R4).DEVMP 
DtVMP,DEVMP*2 
.8LNKS2 

HO 

DRVTYP(R4) .RO 
*$RM03.10$ 
*4.R0 
9$ 

*$R«02.10$ 
#5.R0 
9$ 

*$RM05,10$ 



0 

R4 

R4,*8. 
2$ 

DEVMP*2.DEVMP 
.$CRLF 



.-DRIVE ONLINE 

.-SET DEVICE MAP 
SAVE DEI VICE MAP 
TYPE 2 SPACES 

GET DRIVE TYPE 

ASSUME ADDRESS OF RM03 MESSAG€ 
IS DEVICE AN RM03 ? 
BR IF YES 

ADDRESS OF RM02 MESSAGE 
IS DEVICE AN RM02 ? 
BR IF YES 

ADDRESS OF RM05 MESSAGE 

.•TYPE THE DRIVE TYPE MESSAGE 
.MESSAGE ADDRESS HERE 

INCREMENT DRIVE NUMBER/TABLE POINTER 
FINISHED ? 
BR IF NOT 

GET DEVICES TO TEST 
CR-LF 



7 
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i, 
5 
6 
7 
8 
9 
10 

n 

12 
13 
K 
15 
16 
17 
18 
19 
?0 
2^ 
72 
23 
?6 
25 
26 
27 
28 
29 
50 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
4? 
43 

44 

4S 
46 

47 
48 
49 
50 
51 
52 
5? 
5-. 
55 
S6 
57 



010406 
010412 
010414 
010422 

010424 
010430 
010432 
010440 
010446 



010446 
010452 
CI 0454 

010460 
010466 
010474 
010502 
010506 
010512 
010520 
010524 
010526 
010534 
010542 
010550 

010552 
010560 
010566 
010572 
010600 
010602 
010610 
C10612 
010614 
010620 
010622 

010624 
010650 
010656 
010642 
010644 
010650 
010652 
010656 

0^0660 
C^0^64 



105737 
001540 
132737 
001134 

005737 
001406 
013757 
042737 



005737 
001002 
000137 

012757 
012757 
012757 
005057 
005057 
012757 
005757 
001012 
012757 
012757 
012757 
000415 

012757 
012757 
005057 
012757 
005001 
156157 
001005 
005201 
020127 
005770 
00071 1 

010157 
146157 
105761 
005757 
005757 
001405 
123701 
001751 

012702 
122761 



001150 

000200 001231 



001266 

001266 
177400 



001400 

016542 

000000 
000000 
001466 
001 576 
001520 
M1177 
001272 

020100 
157700 
000057 



017074 
160704 
001356 
000055 

050444 



000007 



001222 
050444 
050540 

0014^2 

001412 



000004 
000007 



001400 
001400 



001 554 
001550 
001 326 



001 350 
00^552 

001560 

00*400 



001 40C 



.S8TTL SIZE FOR AUTQ MODE 

;IF injNNING IM AUTO MODE. THEN AUTO SIZE DRIVES TO BE FCWMATTED 



XSIZE; 



TST8 
BEC 
81 TB 
BNE 



1$: 



ST1 



1$; 



001556 2%- 



001550 
001552 
001 560 



5t: 



4$; 
5$: 



6$: 



SAUTOB 

ASKO 

#8IT7.$ENVM 
ASKO 



0305V" 



T r T 

TST 


$DL VM 


BEO 


1$ 


MOV 


>Dt VM.DEVMP 


BIC 


M 1 7 7 / f\t\ pv r 1. /Mn 

#1 /'/'4U0,Dt vMP 


HERE 


jr RUMNINQ IN CHAIN 


T C T 


Dt VHr 




1 » 


JMP 


$GET42 


nUv 


*U ,m J N 1 KK 


MUV 


j#rv M T kir V 1 
wU,miNL YL 


Afnv/ 


Ifiicc. ,MAXL VL 


ri o 


UD AD 


r 1 D 
LLH 


MUDt 


MOV/ 


j#_ 1 c c r 7 A 


T C T 


9V. DW^ 




5* 


MOV 


*<<:30. * 5t . > ,WC 


rlUV 


w-vc^o. •jc.>,nWL 


MOV 


*51..MAXSEC 


BP 


4S 


nuv 




nUV 


»-<c JO. •3U.>,nWl 


r 1 D 


JC L 5U 


TOJV 




LLH 


D1 




A T AO f T / D1 \ T\C. V/MD 


BNE 


6$ 


INC 


RI 










BR 


ST1 


MOV 


R^DRIVE 


BIC6 


ATA8IT(R1),DEVMP 


TST9 


DRVSTA(R1 > 


BLE 


5$ 


TST 


XXDP 


BEO 


7$ 


CMPB 


XXDP.R1 


BEO 


5$ 


MOV 


#4.R2 


TMPB 


#7.DRvTVP(Rl ) 



.•RUNNING UNDER AuTO MODE 7 
;8R IF NO 

;APT AU^O SIZING ALLOWED ? 
;BR IF NO 

.•DEVICE MAP AVAILABLE FROM APT MAIi BOX 
;8R IF NONE 

.•LOAD IT FROM MAIL BOX 
.•ALLOW MAX 8 DRIVES 



CHECK DEVICE MAP 

BR i'F DRIVES ASSIGNED 

GET MONITOR 

ALWAYS STARTS FROM 0 TRACK 
ALWAYS STARTS FROM 0 CYLINDER 
LAST CYLINDER 

5FEK FROM LO TO HI CYLINDER ADDRESS 

SET TO 'FORMAT* MODE 

SEf 52 SECTOR 

APT PARAMETER 0 

NO. 50 SECTOR 

COUNT OF WORDS 

;WORD COUNT 
MAX 52 SECTOR 



.•COIWT OF WORDS 

.•WORD COUNT 
;30 SECTOR 
;MAX 50 SECTOR 
.•START WITH DRIVE NUMBER 0 

;IS THIS DRIVE IN DEVICE MAP ? 
;8R IF YES 
.•INCREMENT DRIVE * 
.-ALL DONE WITH MAP 7 
;8R IF NO 
.•DONE !! 

.•LOAD R1 INTO DRIVE 

; CLEAR THE BIT FROM DEv/ICE MAP 
;IS DRIVE ON LINE 7 
;8R IF NO 

.•LOADED FROM THIS DEVICE 7 
;BR IF NO 

.•LOADED FROM THIS DRIVE 7 
;8fi IF YES 

.•SETUP TRACK PARAMETER FOR AN RM05/2 
;IS DEVICE AN RM05 ? 



i;f 'GR AUTO «00E 



0 4 

*lA:f<: ..'..^C ^-APR-S' ''8:?'i:St PACE 10-1 



S8 
59 
60 
61 
t? 
63 
(A 
65 
66 
67 
68 
o9 
^0 
71 
7? 
73 
74 
/5 
76 
77 
78 
79 
80 
81 
82 
8? 
84 
85 
86 
87 
88 
89 
90 
9' 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
10? 
*03 
104 
105 
106 
107 
108 
109 
110 
111 
'12 
113 
•'4 



010672 
010674 
010700 
010704 
010710 



010714 
010720 
010724 
010730 
010734 
010736 
010740 
010742 
010744 
010750 
010752 
010756 
010760 
010764 
010766 
010772 

010774 
011000 



011000 
011004 
011006 
011010 
011012 
011014 
011020 
011022 
011026 
011030 
C1 1034 
011036 
011042 

011044 
011052 
011060 
011066 
011074 

01^076 
011102 
011110 
011116 
011124 



001002 
012702 
010237 
010237 
000137 



005037 
005037 
104401 
104401 
104411 
012600 
105710 
001416 
105760 
001006 
122710 
001410 
122710 
001403 
104<.01 
000756 



104401 
104411 
012600 
105710 
001414 
105760 
001006 
122710 
001406 
122710 
001420 
104401 
000756 

012737 
012737 
012737 
012737 
000413 

005037 
012737 
012737 
012757 



C0O022 
001324 
001332 
011566 



1 77776 
001320 
001205 
041752 



000001 
0C0131 
000116 
037174 



005237 001320 



041771 

000001 
000131 
000116 
037174 



U7777 
020100 
157700 
000037 



001356 
01 7074 
160704 
000035 



8S: 



QUE 
MOV 
MOV 
MOV 
JfV 



8S 

#18. .R2 

R2.LSTRIC 

R2.I>WXTRK 

ST2 



8R If NO 

SETUP TRACK DARAWTER fOR AN RM05 
SETUP LAST TRACK AND 
END TRACK rOR AUTO MODE. 
START TO FORMAT OR CHECK 



.-SEE WHICH MODE THE PROGRAM IS TO BE RUN IN. 

.•MODES ARE: 'fORMAT & VERIFY' OR 'VERJFr HEADER FORMAT* 



ASKO: 
It: 



2S: 



3$: 
4$: 



CLR 

CLR 

TYPE 

TYPE 

RDLJN 

MOV 

TST8 

BEO 

TST8 

BNE 

CMP8 

BEQ 

CMP8 

BEQ 

TYPE 

BR 

INC 



PS 
MODE 
.SCRLF 
.MMOOE 

(SP)*.RO 

(RO) 

4$ 

1 (RO) 
2$ 

*• V. (RO) 
4$ 

M'N. (RO) 
3$ 

.8ADENT 
IS 

MODE 



ASSUME 'FORMAT' MODE 
CR-LF 

type 'do you want to format (l) y ?' 

read the keyboard 

<;ave address of response 

was response a carriage return (default ' 

BR IF YES 

WAS IT TERMINATED WITH CARRIAGE RETURN ? 
8R IF NO 

WAS IT A 'V' RESPONSE ? 
BR IF YES 

WAS IT A 'N' RESPONSE ? 
8R IF YES 

TYPE BAD ENTRY MESSAGE 
TRY AGAIN 

.•SET 'VERIFY HEADERS ONLY' MODE 



.•FIND OUT IF FORMAT IS TO BE IN 16. OR 18. BIT MODE 



ASKI 



001356 
001350 
001352 
001360 



001350 
001352 
001360 



1$: 
2$: 

3$: 



TYPE .MSIZE 
RDLIN 

MOV (SP)*.RO 

TST8 (RO) 

BEQ 2$ 

TST8 URO) 

BNE 1$ 

CMP8 *'Y.(RO) 

BEQ 2$ 

CMP8 #'N.(RO) 

BEO 5$ 

TYPE .8ADENT 

BR ASKI 

MOV *-1.SEC30 ;32 SECTOR INDICATOR 

MOV *<258-*32.>.WC .-TRACK SIZE IN 32 SECTOR MODE 

MOV *-<258.*32.>.MWC ;2'S COMPLEMENT WORD COUNT 

MOV #31..MAXSEC ;MAX SECTOR ADDRESS IN 32 SECTOR MODE 

BR 4$ .-CONTINUE 

CLR SEC30 ;30 SECTOR INDICATOR 

MOV #<258.*30.>.WC .-TRACK SIZE IN 30 SECTOR MODE 

MOV *-^258.«30.>.MWC ;2*S COMPLEMENT WORD COUNT 

MOV #29..MAXSEC .-MAX SECTOR ADDRESS IN 30 SEC^OF< MCDE 



TYPE 'DO YOU WANT 16 BIT FORMAT MODE (D Y ?' 
READ THE ENTRY 
SAVE ADDRESS OF RESPONSE 

WAS RESPONSE A CARRIAGE RETURN (DEFAULT 'Y')? 
8R IF YES 

WAS IT TERMINATED WITH CARRIAGE RETURN " 
8R IF NO 

WAS IT A 'Y' RESPONSE ? 
BR IF YES 

WAS IT A 'N' RESPONSE ? 
8R IF YES 

TYPE BAD ENTRY MESSAGE 
TRY AGAIN 



7t 'Ck A-,TO MOD*" 



^'5 










.-GO FIND OUT 


117 


011124 


0^2737 


017630 


001 372 


ACir ^ • 


njv 


118 


011132 


004737 


024414 






J 


119 


011136 


005037 


001126 






ri D 


120 


011142 


104401 


036573 






T VPF 


121 


011146 


104401 


036604 






T VDF 


122 


011152 


104411 








om riu 

nVL I "1 


123 


011154 


012601 








i'hjv 


'24 


011156 


004537 


0231 20 










011162 


01 1 1 76 








' p 




011164 


011176 








' p 




011166 


01 1 1 76 








1 « 

p 




011170 


011176 








- e 

p 




011172 


011204 








?t 

CP 




011174 


01 1 1 76 








1 1 

1 p 


125 














^26 


0''1176 


104401 


0371 74 




p . 


T VPF 


127 


011202 


000750 








no 

On 


128 














129 


011204 


010237 


001222 




?t • 
CP . 


fMDV/ 


130 


011210 


005737 


001412 






I 3 I 


151 


011214 


001406 








DC w 


132 


011216 


123702 


001412 








155 


0M222 


001003 










134 


011224 


''04401 


036771 






T VPF 


135 


011230 


000735 








OR 
On 


136 














137 


011232 


004737 


01 7360 






J jn 


138 


011236 


004737 


030466 






J on 


159 


011242 


013700 


030456 






MOW 


uu 


011246 


012760 


000040 


000010 




MOV/ 


U1 


011254 


012737 


^ 77777 


030416 




MOW 


U2 


011262 


012737 


1 77777 


030420 




MDU 

nuv 


U3 


011270 


005037 


1 77776 






ri D 




011274 


105762 


030340 






1 <;tr 


'45 


011300 


00301 5 










146 


011302 


001403 








SFQ 
OC W 


147 


011304 


104401 


036751 






T VPP 


148 


011310 


000705 








no 

on 


■•49 














150 


011312 


105762 


030350 




4S: 


TST8 


151 


011316 


001003 








BNE 


152 


01 1 320 


104401 


036675 








i'^3 


01 1 324 


000677 








pp 


154 














155 


011326 


104401 


036722 






T VPP 


156 
157 


011332 


000674 








RP 


158 


011334 


113737 


001222 


005540 


Op • 


'VO 


1 j9 


011342 


012737 


000000 


001350 




MOV 


160 


011350 


012737 


001466 


001 326 




MOV 


161 


01 1 356 


012737 


000000 


001334 




MOV 


162 


011364 


012700 


000004 






MOV 


16? 


011370 


122762 


000007 


030550 




CMP8 


*64 


011376 


001002 








BNE 


'65 


CI '400 


012700 


000022 






Mo; 
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10-2 



UT DRIVE 

#C.ENTR,CNTLC 

PC.ITICINT 

lERTTL 

.MUNIT 

.COLON 

(SP)».R1 
R5.CK.CMR 



.8ADENT 
ASK2 

R2. DRIVE 

XXDP 

3$ 

XXDP.R2 
3$ 

.ML ODE V 
ASK2 

PC.ST.CLK 

PC.RMIMT 

RMADR.RO 

#CLR,RMCS2(R0> 

*-1 .SAVEFG 

*-1.SEEKrG 

PS 

DRVSTA(R2) 

61 

4S 

,«U5DR 
ASK2 

DRV^YP(R2) 
5S 

.MDRNP 

ASK2 

.MER11 
ASK2 

DRi'VE.FMTDPB 

#O.MINCYL 

*822..MAXCVL 

*O.MINTRK 

*4.R0- 

*7,DRVTVP(R?) 
7$ 

#18. .RC 



CONTROL C ABORT ENTRANCE 
INITIALIZE THE TTv r.E rBOARD 
CLEAR THE ERROR ACCUMULATOR 
TYPE 'DRIVE* 
TYPE •: • 
READ THE ENTRy 
SAVE ADDRESS Of RESPONSE 
CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 



DIGIT 0-7 
DIGIT 8-9 

TYPE BAD ENTRY MESSAGE 
ASK FOR DRIVE NUMBER AGAIN 

SAVE DRIVE NUMBER 

LOADED FROM THIS DEVICE ? 

BR I F NO 

WAS THIS THE DRIVE ? 
BR I F NO 

DRIVE IS LOAD DEVICE 



START THE CLOCK 

GO SEE WHAT DRIVES ARE AVAIi AR.E 

GET BASE ADDRESS 

CLEAR MASSBUS 

SAVE THE REGISTERS 

SET 'NO OPTIMIZATION' FLAG 

PRIORITY 0 

LOOK AT DRIVE STATUS 

BR IF ONLINE 

BR IF DRIVE NOT AVAILABLE 

•DRIVE UNSAFE* 

GO GET DRIVE NUMBER AGAIN 

A DRIVE PRESENT? 
BR IF SO 

TYPE 'DRIVE NOT PRESENT' 
GO GET DRIVE NUMBER AGAIN 

'DRIVE NOT AVAILABLE' 

GO GE1 DRIVE NUMBER AGAIN 

SETUP DRIVE ADDRESS 

CLEAR STARTING CYLINDER ADDRESS 

SETUP END CYLINDER 

CLEAR STARTING TRACK ADDRESS 

GET LAST TRACK FOR AN RM03/2 

IS DEVICE AN RM05 ? 

BR I ^ NO 

GET LAST TRArK f OR AN RMC5 



E 'OR *UT0 «00€ 

^66 01U04 01003 7 00T324 ?»: MOV 

'6^ 01U10 010037 CO' 33? MOV 

•70 01KU 010037 005666 MOV 

011420 010037 005674 MOV 

173 01K24 C10037 OOS710 MOV 

01U50 010037 005726 MOV 

G^H34 010037 005744 MOV 

'74 0-1440 104401 001205 UPi 
'75 

V6 .-GET ADDRESS L 

V7 

'^8 011444 005037 001376 ASk3: fLR 

•79 011450 104401 042362 TrPE 

1%0 011454 104411 RDLIN 

■81 011456 012600 MOV 

'82 011460 105710 TS^B 

^83 011462 001441 BEQ 

'84 011464 105760 000001 TST8 

1S5 011470 001006 BNE 

'86 011472 122710 0C0131 CMP8 

'87 011476 001406 BEQ 

188 011500 122710 000116 CMP8 

189 011504 001430 BEQ 
"X) 011506 104401 037174 TYPE 
'91 011512 C00754 BR 
'92 011514 21: 

193 

194 011514 104401 036624 AS(C3A: rvPE 

195 011520 004437 020032 JSR 

196 011524 005650 TABLE 

197 011526 023737 001326 001330 CMP 

198 011534 001 402 B£0 

199 011536 103410 BIO 

200 011540 000412 BR 
201 

202 011542 023737 001352 001354 it: CMP 

203 on 550 103006 BHIS 
?04 01155? 104401 037215 ?t: TvpE 
20^ 011556 000756 BR 
206 

207 011560 012737 177777 001576 3»: MOV 

208 C^'566 4S: 



SFTjP LAST 'RACK AND 
END TRACK PARAMETERS 
SETl^ TRACK PARAMETER 
SETUP TRACK PARAMETER 
SETUP TRACK PARAMETER 
SETUP TRACK PARAMETER 
SETUP TRACK PARAMETER 
CR-LF 



LIMITS IN "TAdLf" 
LIMITS IN "TABLf* 
1 IMHS IN "TABlf?" 
LIMITS IN "TABLF 3" 
LIMPS IN "•ABif4" 



ASSUME SEEK FROM LO TO HI CYLINDERS 
TYPE 'CHANGE DRIVE PARAMETERS ?' 
READ THE ENTRY 
SAVE ADDRESS OF RESPONSE 

WAS RESPONSE A CARRIAGE PETuRN (DfFAUl T 'N* 
BR IF YES 

WAS IT TERMINATED WITH CARRIAGE RETURN ' 
BR IF NO 

WAS IT A 'Y' RESPONSE ? 
BR IF YES 

WAS IT A 'N' RESPONSE ? 
BR IF YES 

TYPE BAD ENTRY MESSAGE 
TRY AGAIN 



TYPE 'ENTER ADDRESS LIMITS:' 
ENTER THE ADDRESS LIMITS 
TABLE PARAMETERS 

SEE IF ENDING CYL £Q TO GT THAN STARTING 

BR IF ON THE SAME CYLINDER 

BR IF LESS 

TO CHECK DRIVE 

SEE IF ENDING TRACK EO OR GT THAN STARTING 
BR IF YES 

INVAl ID ADDRESS ENTERED 
TRY AGAIN 

ALIOW SEEK FROM Hi TO LO CYLINDER ADDRESS 



21 
22 
2^. 
2t' 
?S 
2b 
27 
28 
29 
50 
51 
12 
55 
54 
35 
5o 

?7 
38 
59 
40 
41 
42 
45 
44 
4S 
46 
47 
60 
61 
62 
65 
64 
6S 
CO 
67 

d5 



G 4 

.--..C 4-AP«»-8' '8:59:Sfc PAGE *' 

,S8^i. TYPE THE DRIVE »KUM8£P 

;TyPE The drive TO BE FORMATTED AND STAnT 



J V 566 


00505r 


0 1 '64<r Qwl>60 


ST2: 




wU.tNTR,S#TICVtC 


.•VECTOR FOR CONTROL-C 






1 "7 7 7 "7 A 

\ f f f fti 




CLR 


Pi 


.•PRIORITY = 0 




■7 All ^/%A 


104401 


AA1 "^AC 

001205 




T vfsr 




; CR-LF 








AAi ZOA 

001 520 




T C T 

1 5 1 


MAfNC 

nOPt 


;15 Ji FORflAT MODE 7 






AA 1 / A^ 

00 1405 






OC A 

ocw 




;QR JF YES 

;TYPE 'VERIFY HEADERS' 




10 011612 


104401 


037062 




TYPE 


.M^ERFY 




1 u 1 D 10 


AAA/ AT 






DD 
OK 








V 0n620 


104401 


037035 




TYPE 


.WfORMT 


;TYPE 'FORMAT & VERIFY' 




"5 011624 


005737 


001 356 


21: 


TST 


SEC 30 


;IS IT 16 BIT MODE ? 




'4 011630 


100403 






BMI 


5S 


;8R IF YES 

;TYPE 'OPERATE IN 18 BIT 




IS 011632 


104401 


037141 




TYPE 


.W18BIT 


MODE* 


'6 01 1636 


000402 






BR 


4S 






'7 011640 


104401 


037106 


5S: 


TYPE 


,W168IT 


;TYPE 'OPERATE IN 16 BIT 


MODE' 


'8 011644 
^9 






4S: 











THIS CODE RETRIEVES THE BAD SECTOR FILE FROM 
;SE- UP DPS BLOCK READ Cyl 822.. LAST TRACK. 



THE PACK (IF FORMATTED PACK) 



011644 
011650 
011656 
011664 
011672 
01 1 700 
011704 
011712 
01 1 720 
01 1 726 
011734 
011740 
01 1 742 
011744 
011750 

011752 
01 1 760 
01 1 764 
C1 1772 
01 1 776 
012000 
012002 
012006 
012010 
012012 
012020 
012022 
012026 

012030 
012034 
012040 
012044 
0'?046 



OOS057 

W JyJ Jf 


001 34? 






'^77777 


001404 

\J\J 1 \/"* 


C13737 


001222 


005540 


012737 


001466 


005552 


1 1 5737 


001 324 


005551 


105057 


005550 

\J\J J J J\f 




012737 


046234 


005546 


012737 


157700 


005544 


112737 


000020 


005541 


112737 


00014 3 


005542 


004037 


031214 




005540 






00077 






005737 


005556 




001775 






012737 


011752 


001124 


012706 


001100 




112737 


000173 


005542 


004037 


031214 




005540 






000774 






005737 


005556 




001775 






100007 






022737 


000003 


001342 


103452 






005237 


001 342 




000761 






005037 


001176 




005037 


001 IU2 




005757 


005556 




100440 






022737 


151466 


C46.-^54 



RETBAD: 



1$: 
21: 

5t: 
4(: 



6$: 



CLR 
MOV 
MOV 
MOV 

Move 

CLR8 

MOV 

MOV 

M0V8 

M0V8 

jSR 

FMTDP8 
BR 
TST 
BEQ 

MOV 
MOV 
M0V8 

JSR 

FMTDP8 
BP 

Tsr 
BEQ 
BPL 
IMP 
BLO 
INC 
BR 

CLR 
CLR 
TST 
BMI 

:mp 



RETRY 
♦-1.8SFAVL 
DRIVE. FMTDP8 
*822..FMTDP8*12 
LSTRK,FMTDP8*11 
FMTDPB^IO 
*8UFP.FMTDP8*6 

*-<32.«258.>.FMTbP8»4 .-WORD 
*20.FMTDPB»1 ;FMT SET 
*SETFMT.FMTDP8*2 ;SET 16 



.'CLEAR THE RETRY FLAG 
.•INDICATE BAD SECTOR FILE 
.•LOAD DRIVE # 
.-CYLINDER 822. 
.•LAST TRACK 
.•SECTOR 0 
.•BUFFER ADDRESS 

COUNT FULL 



IS NOT AVAILABLE 



TRACK INCLUDING HEAD 



R0.RM05 
1$ 

FMTDP8*16 
2$ 

#..SLPERR 
*STACK,SP 
#RDHD,FMTDP8*2 
R0.RM05 

5$ 

FM'DP8*16 

4S 

6t 

#5, RETRY 
9$ 

RETRY 
5$ 

tESCAPE 
RETRY 
fMTDPB*i6 
9$ 

#l5'466,&Uf P 



;SET THE FORMAT 



BIT 
BIT 



MODE 



THE COMMAND 
8R IF NOT 



IS DONE ? 



LOOP ON ERROR ADDRESS 
RESET STACK POINT 

RELOAD THE READ HEAD AND DATA COMMAND 
READ THE LAST TRACK 

8R IF QUEUE FAIL 

ALL DONE 

8R IF NOT 

8R IF NO ERROR 

EXCEEDED RETRY LIMIT ? 

8R IF YES 

INCREMENT RETRY COUNT 
TRY AGAIN 



ANY ERROR ? 
8R IF YE S 

ON THE LAST CV. iNttr* 



H 4 



■ypf THE D«IVE ^aMER 



''0 
/I 

7? 
7^ 
74 
'5 
^6 
/7 
^8 
79 
80 

ai 

32 
83 
84 

85 
86 

87 
88 
89 
90 
91 
92 
-53 
94 
9S 
% 
97 
98 
99 
TOO 
101 
102 
103 
104 
'OS 
^06 
107 
108 
109 
110 
111 
11? 
1^3 
1H 
115 

117 
M8 
119 
120 
1?1 

'r3 

V5 



0^2054 
012056 
012062 
012064 
012070 
012072 
012076 
012100 
012104 
012106 
012112 
012114 
012122 
01 2'' 24 
012130 
012134 
012136 
012144 
012146 
C12146 



012146 
01215? 
012154 
012160 
012164 
012170 
012174 

012200 
01220? 
012204 

012206 
01221? 
012216 
012220 
012222 
012224 



012226 
012232 



012234 
012240 
012244 
012250 
012252 
012254 



001034 
013700 
000300 
020037 
001026 
005737 
001003 
005737 
001420 
005737 
001015 
022737 
0O1002 



001004 
012737 
000400 



012706 
C05046 
012746 
012746 
012746 
012703 
012704 
005023 
005 304 
001 375 

012704 
012723 
005304 
001374 
01260^ 
001 363 



005737 001404 
003451 







• >«. .. w 














8\E 


9S 


8R \* NO' 


C0'3^<. 






MQv 


LSTRK.Ru 


GET LAST Tha'K 






SdAB 


RO 


nOVC TRACK TO Hj BVTt AND StC'UR '0 10 BVTf 


046^ 36 






CMP 


R0,8UFP*2 


/\ft 1 1 ACT TftA/*w Aft ifS ^ P ^ T 

ON LAST TRACK AND SECTOR 0 






BNt 


91 


r%f\ 1 r ft«n T 

BR IF NOT 


046240 






TST 


BUFP*4 , 


SERIAL NLtoEh should NO' 0 






BN£ 


7» 


bft f r ftAftT A 

BR IF NOT 0 


046242 






V T 

TS" 


BUrP*6 


SECOND WORD OF SERIAL NLf13tH 






BEQ 


9» 


'BR IF ZERO (CORRUPT; 


046244 






TST 


BU P*10 


.TuP TLjfn^ 1 ^of\ AAi iC T or A 

•THE THIRD WORD MUST BE 0 






BNE 




8R IF NO 1 ( CORRUP i ' 


1 77777 


046246 




CMP 


#-1 ,9UrP» 12 


. AAJ Ai f r'AlUf AlT QA^V ^ 

;AN ALIGNMENT PACK 7 






BNE 


8» 


.on f r ft 1 A T 

,8R IF NOT 


016430 






JW 


nc 1 r T 1 


.REJECT FOH otING AN ALJU^WNI PACK 


046246 




BS: 


TST 


BUr ^ 


,15 DISK A DATA PACK 7 






BNE 


9> 


;8R IF NO (CORRUPT) 


OvXj4UU 


UU hU4 




nUV 


•*tUU»Oir MVL 








BR 


10$ 


.'FILE OK.. 



0011 00 

004430 
002420 
001414 
003424 
000004 



000374 
^77777 



9$: 
10$: 

.•THIS CODE INITIALIZES THE MFG16. MFG18. USTA8 AND USSAV 'A8LES 



TA8INT: 


MOV 


*STACK,SP 


INITIAl STACK POINT 






CLR 


-CSP) 


TERMINATOR 






MOV 


•USSAV. -(SP) 


•USSAV TABLE ADDRESS 






MOV 


*MFG18,-(SP) 


MFG 18 BIT FILE ADDRESS 






MOV 


#MFG16.-(SfO 


MFG 16 BIT FILE ADDRESS 






MOV 


*USTAB.R3 


■USER BAD SECTOR FILE ADDRESS 




1$: 


MOV 


#4.R4 


SET 2 SERIAL NUMBER WORDS AND 


NEXT 2 WORDS 


?$: 


CLR 


(R3)* 


TO ALL O'S 






DEC 


R4 


•DONE YET ? 






BNE 


2$ 


•8R IF NO 






MOV 


#252.. R4 


•GET NUMBER OF ENTRIES LEFT TO 


FILL 


3$: 


MOV 


#-1.(R3)* 


•SET REST OF LOCATIONS TO -1 






DE( 


hi* 


•DONE YET : 






BNE 


3$ 


•BR IF NO 






MOV 


(SP)+.R3 


;GET NEXT TABLE ON STACK 






BNE 


1$ 


:8R IF NOT TERMINATOR 





.-THIS CODE LOADS TABLE MFG16. MFGI8. USSAV FROM PACK BAD SECTOR FRE 
.-INFORMATION (IF BAD SECTOR FILE IS AVAILABLE) 



TA8LD: 



012702 
012703 
012704 
012223 
005304 
001375 



046240 
001414 
000400 



1$: 



CWSfc 01270? 04 7244 



TST 
8LE 



MOV 
MOV 
MOV 
MOV 
DEC 
BNE 



MOtf 



BSfAVL 
6$ 



#8UfP*4.R2 

*MFG16,R3 

#256.. R4 

(R2;».(R3)* 

R4 

1$ 



;iS BAD SECTOR FILE AVAILABLE 
;8R IF NO 

POINT TO FIRST SERIAL NUMBER CF 1ST 
16 BIT "MFG" BLOCK OF BAD SECTOR FILE 
GET ADDRESS OF MFG16 TABLE 
WORD COUNT 

LOAD THE MFG16 TABLE 
DONE VET ? 
BR IF NO 



.-POINT TO FIRST SERIAL f*JMBER 0» T'T 
•8UfP*4*516..R2 ;18 BIT 'MFG' BLOCK OF BAD SECTOR FIE 



\^ ;i2?62 01?705 OC^H^O "TOv 

•?8 012266 0127(K COC'AOO 'Wv 

•29 012272 0V223 ^S: MOV 

'50 012274 005304 DEC 

1!1 012276 001 57S BNE 

012500 012702 06^^'^ WOv 

'5ft 012504 005757 00^55t) TST 

157 012510 100402 BM] 
'58 
'59 
'4C 

K1 012512 012702 060510 "10V 

U2 012516 01 2705 004450 3t: MOV 

145 012522 012704 000400 MOV 
'44 012526 012225 h$: MOV 
US 012550 005504 DEC 

146 CI 2552 001575 BNE 

148 012554 062 702 000004 ADD 

149 012540 012705 005424 MOV 

150 012544 012704 000400 MOV 

151 012550 012225 5$: MOV 
'52 012352 005504 DEL 
•5? 012354 001575 BNE 
154 012556 61: 



I 4 

V '8:59:56 PAGE '1-2 



#256.. R4 

(R2)»,(R5)» 

R4 

2S 



«8UfP^4»<11, 

SEC 50 

5$ 



#8UFP»4*<10. 

*USSAV.R3 

»256..R4 

(W2) 

Ri, 

4S 

»4.R2 

»USTAe.R5 

#256.. R4 

(R2)^.(R5)* 

R4 

5$ 



>516 



'516 



GET ADDRESS Of MfG^e ^Afi. f 
WORD COt/^T 

LOAD THE MfG18 TASlE 
DONE rET ? 
8R If NO 

POINT TO fIRST SERIAL NUTIBER Of 1ST 

18 BIT 'USR* BLOCK Of BAP SECTOR fkC IN 

>.R2 .-SECTOR 11. 

FORMAT IN 16 BIT MODE 

BR If IT IS 

POINT TO FIRST SERIAL WJMBER Of UT 

16 BIT 'USR* BLOCK Of BAD SECTOR f iLf IN 

>.R2 .-SECTOR 10. 

GET ADDRESS OF USSAV TABLE 

WORD COUNT 

LOAD THE USSAV TABLE 
DONE VET ? 
BP If NO 

ACCESSES THE USTA8 BUFFER ADD 
GET ADDRESS Of USTAB TABLE 
WORD COUNT 

LOAD THE USTAB TABLE 
DONE rET ? 
BR IF NO 



'{(> ociAi vj'^ferf' 



J 4 

..4.00 4-4P9-8' '8:?'':S6 PAGE ^? 
.S8TTL EMTER OCTAL SERIAL NUMBER 

;^HIS CODE ASK OPERATOR TO ENTER A SERIAL NlWBER FOR UNfORMATItl; ^fi 
.INITIALIZED PACK 

IS BAD SECTOR FILE AVAILABLE ? 
8R IF VES 

RUNNING UNDER AUTO MODE ? 
8R IF rES 

INITIALIZE THE KEYBOARD 
TYPE 'ENTER SERIAL NUMBER (OCTAL): 
MAXMUM 10 OCTAL DIGITS ALLOWED 
CLEAR THE LSW OF THE SERIAL NUMBER 
CLEAR THE KSW OF THE SERIAL NUMBER 
READ IN THE STRING 
ADDRESS OF THE READ IN STRING 
TERMINATOR OF THE INPUT STRING 
BR IF IT IS 
LESS THAN ASCIZ 0 ? 
ENTER AGAIN IF IT IS 
HIGH THAN ASCIZ 7 ? 
ENTER AGAIN IF SO 
SAVE THE LSW 

CLEAR THE SIGN BIT OF LSW 
ROTATE THE LSW FIVE TIMES 
TO MOVE THE MOST SIGN DIGIT 
TO BIT 0 TO BIT 2 



LEFT ON THE MS DIGIT OF THE LSW 
SHIFT THE MSW LEFT ONE OCTAL DIGH 
ENTER AGAIN IF SIGN BIT SET 



t C1??S6 


0C5757 


001404 




SERNL: 


TST 


BSFAVL 




005125 








BGT 


5$ 


8 0T256A 


105757 


001150 






TSTB 


IAUT08 


9 012570 


001116 








8NE 


4$ 


10 

n oi??7? 


004757 


024414 






JSR 


PC.STKINT 


'2 012576 


104401 


057555 




If: 


TYPE 


.ME SGI 


15 012402 


012702 


0000 V 






MOV 


*10. ,R2 


U 012406 


005057 


001414 






CLR 


MFG16 


15 012412 


005057 


001416 






CLR 


MFG16*2 


16 012416 


104411 








RDLIN 




17 012420 


012601 








MOV 


(SP) ♦ ,R1 


'8 012422 


10571 1 






2t: 


TSTB 


(R1 ) 


19 012424 


0014^1 








BEQ 


5$ 


20 2^2(3 


121 127 


OC0060 






CMf^ 


( R 1 ) , # ' 0 


21 012452 


105522 








8L0 


6S 


22 012454 


121 '27 


000067 






CMP8 


(Rl ) 7 


2? 012440 


101 1 1 7 








BHI 


6S 


24 012442 


01 5746 


001414 






MOV 


MFG16.-vSP) 


?S 012446 


042757 


1 00000 


1 y 1 y 

00 4^4 




BI( 


*8I Tl 5,MF G16 


?6 012454 


0061 57 


/^ A 1 y 1 / 

001414 






ROL 


MFG16 


27 012460 


006157 


/%/\ 1 y 1 / 

001414 






ROL 


MFG16 


28 012464 


0061 57 


A/\ 1 y 1 y 

0014 "4 






ROL 


MFG16 


29 012470 


0061 57 


001414 






ROL 


Mr G16 


50 012474 


006157 


y 1 / 

001414 






ROL 


MFG16 


51 012500 


042757 


1 7777Q 


1 y 1 y 

001414 




8IC 


Ml TTT'^rt ^"1 z 

#1 r rO,MFG16 


V 012506 


006557 


001416 






ASL 


MFG16*2 


012512 


100472 








BMI 


6» 


^4 012514 


006557 


n/^ 1 y 1 z 

001416 






ASL 


MFG16*2 


5S G12520 


100467 








BMI 


6S 


56 012522 


006557 


/\m y 1 z 

001416 






ASL 


Mr G16*^ 


^7 012526 


1 00464 








BMI 


6> 


58 012550 


065757 


001414 


0014^6 




ADD 


Mf 6 i6,MFG i6*2 


59 012556 


012657 


001414 






MOV 


(SP) ♦ ,MFG 16 


y/\ rtl'^Cy"^ 

40 012542 


006557 


001414 






ASL 


MFG16 


41 012546 


006557 


001414 






ASL 


MFG16 


42 C12552 


006557 


001414 






ASL 


Mr G16 


45 012556 


/\y "i^T 7 

042^57 


1 00000 


/^^^ 1 y i y 

0014^4 




oiC 


*8jT15,MFG16 


44 012564 


1 1 1 105 








MOVB 


(Rl ; .R5 


45 012566 


042705 


\77770 






BIC 


*1 77 f f\J ,tKb 


46 012572 


060557 


/\/M y 1 y 

001414 






ADD 


r» 7 uf /* 1 Z. 

R3,Mr G16 


47 012576 


005201 








INC 


R ( 


40 V 1 £dUU 


r,r\ c 7n 5 












49 012602 


001 507 








BNE 


2J 


50 012604 


105711 








TSTB 


(Rl) 


51 012606 


001054 








BNE 


6$ 


52 012610 


005757 


001414 




5$: 


TST 


MfG16 


55 012614 


001006 








BNE 


5J 


'.4 012616 


005757 


001416 






TST 


MfGl6*2 


55 012622 


001426 








BEO 


6$ 


^6 012624 


000402 








BR 


5$ 


57 0'?626 


005257 


001414 




4$: 


INC 


MFG16 



APPENDING THE DIGI'S INTO MSW 
RESTORE THE LSW 

SHIFT fHE LSW LE^T ONE OCTAL DIGIT 



CLEAR THE SIGN BIT 

LOAD THE CURRENT READ IN DIGITS 

LEFT ONLY ONE OCTAL DIGIT 

APPEND THE READ IN CHARACTER TO LSW 

ADJUST THE READ IN STRING ADDRESS 

DECREMENT ONE DIGIT COUNT 

BR IF NOT DONE 

IF 10 DIGITS HAVE BEEN ENTERED 
BR IF NOT <CR> TERMINATOR 
FIRST SERIAL NUMBER ZERO ? 
BR IF NO 

SECOND SERIAL NUMBER ZERO ? 
BR IF YES 

: ASSUME S/N 1. 1^ THE SERIAL NUMBER NEED 



'ZRMLb^ WMC''>/V,J FORMAT 't*< 
FNTER i.-'Al SER:Al NUMBER 



S8 

5<i 012632 

60 01t'640 

61 012646 

62 012654 

63 012662 

64 012670 

65 012676 

66 012700 

67 012704 

68 012706 



013737 
013737 
013737 
013737 
013737 
013737 
000403 
104401 
000634 



C01414 
001414 
001414 
001416 
001416 
001416 

0371 7A 



002420 
003424 
004430 
003426 
004432 
002422 



5S: 



6S: 
7$: 



I 



K 4 

4-APR-8' -8:39:56 PAGE 12-1 



;8E ENTERED DUftING AUTO MODE APT. ACT, ETC. 

MOV MFG16.MFG18 ."LOAD ALL TAB ES WITH T»4f NEW SERIAL Nl^ER 

MOV MFG16.USTAB 

MOV MFG16,USSAV 

MOV MFG16*2,USTA8*2 

MOV MFG16*2.USSAV*2 

MOV MFG16*2.MFG18*2 

BR 7$ .-EXIT 

TYPE .8ADENT ;TyPE 'BAD ENTRY* 

BR 1$ ;TRY AGAIN 



3 = • 








v04.00 


4-APR-8 














• 








.S8TTL 


UTILI 


I 








.•THIS 


CODING 


A 

5 012706 


004757 


024414 




CALIN: 


JSR 


6 01271? 


105737 


001150 






TST8 


7 012716 


001057 








BNE 


0 ViC'cV 


if 


UvJ 1 1 ' U 






T ^ T 


9 012724 


00U54 








BEQ 


10 

'1 012726 


005227 


17777/ 




1$: 


INC 


12 012732 


001002 








BNE 


15 01273A 


104401 


057740 




2%: 


TyPE 


U 012740 


104401 


040521 




5f : 


TYPE 


15 012744 


104410 








RDCHP 


16 012746 


012637 


001 1 74 






MOV 


17 012752 


022737 


000060 


001 1 74 




CMP 


18 012760 


10*022 








BHI 


' i 012762 


122757 


000064 


001 1 74 




CMP8 


20 012770 


105416 








BLO 


21 012772 


104401 


001174 






TYPE 


22 012776 


104401 


001205 






TYPE 


^3 013002 


015701 


001 1 74 






MOV 


24 013006 


042^01 


1 77760 






BIC 


?S 013012 


006301 








ASL 


26 013014 


004771 


006052 






JSR 


27 013020 


104401 


001205 






TYPE 


28 013024 


000745 








BR 


29 












50 013026 


104401 


001205 




4S: 


TYPE 


31 015052 


022757 


000065 


001 1 74 




CMP 


52 015040 


001755 








BEO 


55 015042 


005037 


001562 






CLR 


54 013046 


005057 


001 564 






CLR 


55 013052 


005037 


001 5^4 






CLR 


36 013056 








5f : 





8:39:56 PAGE ^3 
ROUTINE 

PROVIDE UTILITY ROUTINE ENTRIES 



PC.STKINT .'INITIALIZE THE KEYBOARD 

SAUTOB ;AUTO BYTE SET ? 

5$ ;If SO. BRANCH 

tCDWl .-ALLOW ANY UTILITY ROUTINE -> 

5S ;8R IF NOT 

#-1 ; FIRST TIME THRU ? 

3S ;8R IF NO 

.MSG8LK .-ENTER MESSAGE BLOCK 

.MUTLTf .-TYPE UTILITY MESSAGF 

;READ IN THE ROUTINE NUMBER 

(SP)*.$TMPO .-ADDRESS OF INPUT BUFFER 

*'O.STMPO .-INPUT NUMBER LESS THAN 0 

4$ .-BR IF SO 

*'4.$TMP0 .-INPUT NUMBER LARGER THAN 4 ^ 

4$ ;8R IF SO 

,$TMPO .-TYPE CHARACTER 

,$CRLF ;CR-LF 

STMP0.R1 ;6ET NUMBER 

#1 77760. R1 .-LEFT OF THREE BITS 

R1 .-WORD INDEX 

PC.aTABCALJRI) ;CALL THE DESIRED UTILITY ROUTINE 

.SCRLF ; CR-LF 

3$ .-LOOP BACK TO THE SAME POINT 

.SCRLF ; CR-LF 

#*5.$TMP0 .-TYPE WHOLE MESSAGE AGAIN ? 

2S ;8R IF YES 

DS.CYL .-CLEAR ALL PARAMETERS 

DS.TRK 

BADSEC 



H 4 

A-4PR-81 18:59:56 PAGE U 



5 

6 

7 CI 5056 
e 013062 



013066 
01 3070 
01 5071 
013072 
015076 
013102 
013106 
013112 
013120 
013124 
CI 31 30 
013134 
013U0 
015142 
015150 
015154 
013156 



9 

'0 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
^6 
27 
26 
?9 
30 
31 
52 



015162 
015166 
0151/2 
015176 
013202 
013204 
013206 
013210 
01321? 



104401 
015746 

104405 
002 
000 
10'.401 
104401 
004757 
104401 
012737 
012706 
005057 
005057 
005757 
001006 
012757 
104401 
C00402 
0001 57 

015703 
012700 
013701 
015702 
010120 
010220 
005303 
005305 
001 373 



036573 
001222 



036602 
036622 
022622 
001205 
017642 
0011 00 
177776 
001406 
001 320 

177777 
037515 

015110 

001550 
046234 
001336 
001 340 



.S8TTL SETUP WRITE BUFFER 

THIS CODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN ON fA h 
SECTOR IMAGE . ALSO, RETURN HERE WHEN LOOPING ON DRIVE BEING 'F'.TFD 
.•WITH SW0=1 (SET). 



ST5: 



000060 



001406 



1$ 
2$ 
5$ 



TYPE 
MOV 

TVPOS 

.BYTE 

.BYTE 

TYPE 

TYPE 

JSR 

TYPE 

MOV 

MOV 

CLR 

CLR 

TST 

BNE 

MOV 

TYPE 

BR 

JMP 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
DEC 
DEC 
BNE 



,MUNIT 
DRIVE,- 



fSP) 



2 
0 

,$C0MMA 
.BLNKS1 
PC.TYPACK 
,$CRLF 

*Q.ENTR.a#lKVEC 

/rSTACK.SP 

PS 

UPD8SF 

MODE 

1S 

#-1 ,UPDBSF 

.MSFOR 

2S 

Vf YHDR 

WC.R3 

*8UFP.R0 

PATA.R1 

PAT8,R2 

Rl.(RO)* 

R2.(fi0)* 

R3 

R3 

4$ 



TYPE 'DRIVE' 

SAVE DRIVE FOR TYPEOUT 

TYPE DRIVE NUPBER 

GO TYPE— OCTAL ASCII 

TYPE 2 DIGIT(S) 
.•SUPPRESS LEADING ZEROS 
TYPE 

TYPE 1 BLANK 

TYPE PACK S/N IN OCTAI 

CR-LF 

VECTOR FOR CONTROL -0 
RESET STACK POINTER 
PRIORITY - 0 

DON'T ALLOW UPDATE OF *8SF' AT END OF PASS 

•FORMAT' OR 'VERIFY HEADER' MODE ? 

8R IF 'VERIFY HEADER ONLY' MODE 

ALlOW update of 'BSF ' AT END OF PASS 

TYPE 'STARTING FORMAT' 

BEGIN FORMATTING 

BEGIN VERIFYING HEADERS ONLY 

SET JP COUNTER 
SET UP MEMORY POINTER 
SET UP PATTERN IN R1 
SET UP PATTERN IN R2 
MOV 1ST PAT INTO MEM 
MOV 2ND PAT INTO MEM 
KEEP COUN" 
KEEP COUNT 

DO IT AGAIN IF R3 NOT 0 



N 4 

lACHO V04.00 4-APR-81 18:59:S6 PAGE S 



^10 UUS. 



2 

7 

5 
6 
7 
8 

9 
10 

n 

12 
13 
K 
15 
16 
17 
13 

:9 

20 
21 
22 
23 
24 
25 
26 
27 
28 
?9 
30 
51 
32 
53 
5A 
35 
36 
37 
38 
59 
40 
41 
42 
43 
44 
45 
',6 
A7 
48 
49 
50 
51 
52 
53 
54 
55 
•^6 
57 



01 3214 
013220 

013224 
013232 
013236 
013240 
01 3244 
013252 
013256 
01 3260 
013262 
013266 



013270 
013276 
013300 
013306 
013310 

013314 
01 3320 
013324 
013330 
013332 



013334 
013340 
013342 
013344 
013350 
013354 
013360 
013362 
013366 
013370 
01337m 
013400 
013404 
013410 
013412 
013420 
013422 
013426 
013430 
013434 
013436 
C'3440 



004737 
004737 

112737 
005737 
001002 
105037 
112737 
004037 
005540 
000774 
005737 
001 775 



023727 
103406 
123737 
103402 
0001 37 

012703 
012704 
012723 
005304 
001374 



005737 
003454 
005046 
012746 
012702 
005737 
100402 
012702 
010201 
012703 
012704 
062701 
023712 
001007 
123762 
001003 
116205 
010523 
062702 
020201 
002012 
020304 



016714 
017120 

000020 
001 356 

005541 
000143 
031214 



005556 

005552 
005551 

015076 

005434 
000040 
-[77777 



001404 

003434 
00^424 
001356 

002430 

005434 
005534 
000770 
005552 

005551 

000002 

000004 



.S8fTL WRITE HEADERS 

;SET UP TO WRITE HEADERS AND DATA FOR FORMATTING 
WRTRK 



005541 



005542 



1$: 
2S: 



3$. 



JSR PC.SETDPB 

JSR PC.SETHDP 

M0V8 *20.FMTDPB+1 

TST SEC30 

BNE 1$ 

CLR8 FMTDPB+1 

M0V8 *SETFMT.FMTDP8*2 

JSR R0.RM05 

FMTDP8 

BR 2$ 

TST FMTDPB+16 

BEO 3$ 



;SET DRIVE PARAMETER TABLE 
;G0 INITIALIZE HEADERS IN THE SECTOR BUFFER 

LOAD FMT16 BIT 
18 BIT MODE ? 
8R IF NOT 

CLEAR THE FMT16 BIT 

.••LOAD FORMAT' COMMAND 
START THE COMMAND 
DP8 ADDRESS 
QUEUE FULL RETURN 
LOOK FOR DONE 
LOOP UNTIL FINISHED 



.-SET JP 'SECCU' TABLE WITH BAD SECTORS ON CURRENT TRACK 



001466 
001324 



WRTRKX: CMP 
BLO 
CMP8 
BLO 
JMP 



FMTDPB*12.*822. ;LAST CYLINDER ? 
1$ ;8R If NO 

FMTDPBfH .LSTRK ;LAST TRACK OF LAST CYLINDER ? 
1$ ;8R IF NO 

UIRTRKZ ;DON'T DESTROY LAST TRACK ON CYL 822. 



2$: 



MOV 

MOV 
MOV 
DEC 
BNE 



*SECCU.R3 

*32. .R4 

#-1.(R3)+ 

R4 

2$ 



INITILIZE THE 'SECCU' TABLE 
TOTAL OF 32. ENTRIES 
LOAD ALL LOCATIONS TO -1 
DONE YET ? 
8R IF NO 



000003 



.•LOAD ^HE 'MFG' AND 'USR* BAD SECTOR FILES INTO THE 'SECCU' TABLE FOR 
;THE CURRENT TRACK TO BE FORMATTED 

IS BAD SECTOR FILE AVAILABLF ? 
BR IF NO 

CLEAR UP THE DUMMY RETURN ADDRESS 
ADDRESS OF 'USR' BAD SECTOR TABLb 
SETUP ADDRESS OF •MFG16' BAD SECTOR TABLE 
IS IT 16. BIT MODE ? 
8R IF YES 

SETUP ADDRESS OF 'MFG18' BAD SECTOR TABLE 
STARTING ADDRESS OF BAD SECTOR TA8LE 
STARTING ADDRESSS OF 'SECCU' TABLE 
ENDING ADDRESS OF TABLE (32. ENTRIES) 
INDEX ADDRESS TO END OF TABlE (126. ENTRIES) 
BAD SECTOR ON THIS CYLINDER ? 
8R IF NO 

BAD SECTOR ON THE SAME TRACK ? 
8R I F NO 

YES— SAME CYL & TRK SO SAVE BAD SECTOR ADRS 
PU'' BAD SECTOR IN 'SECCU* TABLE 
ADVANCE TO NEXT SET OF BAD SECTORS ENTRIES 
AT END OF BAD SECTOR TABLE ? 
BR IF YES 

AT END OF 'SECCU' TABLE ? 



3$: 



4$: 
5$: 



61: 



TST 


BSFAVL 


BLE 


9$ 


ClR 


-(SP) 


MOV 


AUSTA8+8, .-(SP) 


MOV 


#MFG16+8..R2 


TST 


SEC30 


BMI 


3$ 


MOV 


#MFG18*8.,R2 


MOV 


R2.R1 


MOV 


#SECCU.R3 


MOV 


#SECCU+64..R4 


ADD 


*252.*2.R1 


CMP 


FMTDPB+12,(R2) 


BNE 


6$ 


CMP8 


FMTDPB*11 .3(R2) 


BNE 


6$ 


M0V8 


2(R2).R5 


MOV 


R5.^R3)* 


ADD 


*4.R2 


CMP 


R2,R1 


BGE 


8$ 


IMP 


R3.R4 



df^yh HfAOERS 



67 
68 

o9 
^0 
r^ 

'2 
'3 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8*. 
85 
86 
87 
88 
8V 
90 
91 
9? 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
MO 

ni 
n2 

113 
'14 



CI 3442 00?OOT 
015444 000757 



004757 
012757 
000157 

011601 
012602 
001545 
000240 



t8 
59 
60 

td 013446 

63 015452 

64 013460 



013464 
013466 
015470 
013472 



01 3474 
013500 
015504 
C15510 
015514 
015516 
015522 
015524 

013526 
013550 
015534 
013540 
013542 
013546 
013550 
013552 
013556 
013562 
013566 
013570 
015576 
015600 
015602 
015604 
01 3610 
013612 
013614 
013616 
01 5620 
013624 
015650 
013654 
01 5656 
013640 
015642 

015646 
015652 
015656 

ot:*>62 



012702 
012705 
012704 
022712 
001451 
021262 
105450 
001406 

011246 
016212 
012662 
000421 
022712 
001416 
010246 
062702 
016222 
022702 
101373 
012737 
012602 
005504 
001416 
062702 
020302 
001341 
005304 
001410 
012702 
162703 
022703 
001401 
000727 
000240 
005057 

005057 
005057 
105037 
015757 



017522 
^77777 
01214t 



C*.n04 



005454 
005552 
000057 
^77777 

000002 



000002 
000002 

-[77777 



8S: 



9$: 



BGE 

BR 

JSR 

JHP 

MOV 
MOV 
BNE 
NOP 



.-THIS CODE SORl 
;AND DELETES Tf 



000002 
000002 
005552 

y77777 005532 



000002 



005*. 34 
000002 
005454 



005556 

001316 
001 342 
005550 

001352 005544 



SORT! : 


MOV 




MOV 




MOV 




CI»V 




BEO 


1$: 


CMP 




BLO 




BEQ 




MOV 




MOV 




MOV 




BR 


2t: 


CMP 




BEO 




MOV 




Ann 


^$: 


MOV 




CMP 




6HJ 




MOV 




MOV 




DEC 




BEO 


4$: 


ADD 




CMP 




BNE 


S$; 


DEC 




BEO 




MOV 




sue 




CMP 




BEO 




BR 


6t: 


NOP 




CLR 


WRTRK1: 


CLR 




CLR 




CLRB 




MOV 



8 5 

'8-39:56 PAGE "S-l 



SfO 0053 



7\ ;VfS— SHOULD NOT BE That nANr E-'W'RIES fO» 

.OM^ TRACK 

5$ ;GET next ENTRv 

PC.RESTRT ; IMPROPER MFC I NfORMAT ion 

#-l,9SfAVL .-INDICATE BAD SECTOR FIlE IS NOT AVAR^LE 

TABINT ;AM> START AGAIN 

(SP).RI ;GET 'USR* BAD SECTOR taBlE 

($'■»)♦. R2 .-STARTING ADDRESS OF 'USR* BAD SECTOR TABLE 

4$ ;BR IF NOT DUMMV (TERMINATOR) 
.-DONE 

S THE BAD SECTOR ^ABLE "SECCU" IN ASCENDING ORDER 
E DUPLICATED ONES 

*SECCU.R2 .-TOP OF THE TABLE 

#SECCU*62..R3 .-BOTTOM OF THE TABLE 

*31..R4 .-TOTAL 32 ELEMENT. SORT 31 TIME"^ 

*-1.(R2) ;IS THE TABLE EMPTY ? 

6$ ;BR IF IT IS. QUICK EXIT 

(R2).2(R2) ;N TH ELEMENT : N*1 TH ELEMENT 

4$ ;8R IF SMALLER 

2$ .-DELCT N*l TH ELEMENT. IF SAME 

.-OTHERWISE. N > N*1 

(R2).-(SP/ .STORE N ELEMENT 

2(R2).(R2) .-SWITCH N*1 ELEMENT h FLEMENT 

(SP)*.2(R2) .-SWITCH N ELEMENT TO N*1 ELEMENT 

4S .-ADJUST TOP POINTER 

#-1.(R2) .-TERMINATOR ? 

4t .-8K IF IT IS 

R2.-(SP) .-SAVE TOP POINTER 

*2.R2 .-DELET 2(R2) 
2(R2).(R2)* 

#SECCU*62..R2 .-BOTTOM OF THE TABLE ? 

3$ .-BR IF NOT 

»-l.SECCU*62. .-LOAD -1 TO TABLE BOTTOM 

{SP)*.R2 .-RESTORE THE TOP POINTER 

R4 .-DECREMENT ONE ELEMENT COUNT 

6$ ;8R IF ALL DONE 

#2.R2 .-INCREMENT THE TOP POINTER 

R3.R2 .-REACH THE BOTTOM ? 

1$ ;8R IF NOT 

R4 .-DECREMENT ONE SORT COUNT 

6$ ;8R IF ALL DONE 

*SECCU,R2 .-RESET TOP POINTER 

#2.R3 .-UPDATE BOTTOM POINTER 

#SECCU.R5 .-EXIT IF TOP BOTTOM 

6$ 

1$ .-SORT THE REST ELEMENTS 
.•DONE 

NEXT ;FLAG. START OF A NEW TRACK 

SOFSW .-CLEAR FRROR COUNTER 

RETRY .-ZERO THE RETRY COUNTER 

FMTDPBOO .-RESTORE SECTOR 

*yC.FMTDPB»<. .-RESTORE WC 



C 5 
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• • ^ 


:'?67c 


012757 


046254 


005546 




MOV 


«8UFP.FnTDPB*6 


.-RESTORE BA 


•■ 1 •» 










.-THIS CODE TO 


SET UP yORD COJNT 


AND BUFFER ADDRESS 


"8 
•19 


01 3676 


1 1 3737 


AAf f 9y 

005556 


^f\C CCA 

005550 


WRTRKA: 


HOWS 


NEXT ,F HTDP8*10 


cTAnTfffta/* cr/*TAn 

;STARTiNG SECTW 


1^0 


013704 


012701 


005454 






nov 


#SECCU.R1 


;R1 POINTS TO THE BAD SECTOR TABlF 


121 


015710 


02271 1 


\77777 




1$: 


C1P 


#"-1 , (Hi ) 


;tND OF SECCU TAoLc ? 


'22 


013714 


001512 








BEO 




. AA f C WC C 

;8R IF YES 




015716 


032711 


4 AAAAA 

100000 






BIT 


#81 T15, (Rl ) 


;THE BAD SECTOR HAS ALREADY ACCcSSEO 7 




CI 3722 


001405 








BEO 


2S 


. AA T r KlAT 

;8R IF NOT 


V5 


013724 


062701 


AAAAA ^ 

00000? 






ADD 


»2,R1 


.•ADJUST THE POINTER 


'26 


01 5730 


000767 








BR 


4 * 

1 s 


.LOOPING BACK 


^27 


01 3732 


12571 1 


A AC CCA 

005550 




2S: 




r M T A no A 1 A / A 1 \ 


■ AAA CCr'T AO . C T A A T f C C T T AA 

.■8AD SECTOR = STARTING SECTOR ? 


128 


013736 


001416 








BEO 


UR 'RKB 


AA T r f T 1 C 

;8R IF IT IS 


129 


01 3740 


105402 








BLO 


3$ 


.AA fr r'TAAT ^ C r ^ AAA C C ^ T An 

;8R IF START SEC < BAD SECTOR 


'30 


01 5742 


AAA 4 9 Y 

000157 


A4 9 ^7A 

015270 






JMP 


WRTRKX 


. C AUP T T ft 1^ T f t lAAAi^ T AW C AA T T Ai/* A ^ A f Ai AA 1 

; SOME TING IS WRONG, TRY SORTING AGAIN ON 


















; THE SAME TRACK 


'52 


01 3746 


4 4 4 4 A 

1 1 1 102 






39 • 




/ A i \ A T 

(Rl ; ,R2 


.•UPDATE NEXT STARTING ADDRESS 


^55 


013750 


023702 


A A 4 9^ A 

001360 






CMP 


MAXSE ,h2 


..AlCwT AAA CC^T A A TC Ttir •A^'T C*"^T rtA 1 

;NEXT BAD SECTOR IS THE LAST ScCTOR^ 


154 


01 5754 


AA4 J ^ t 

001463 








BEO 


1 m T CIV f 

WRTRKF 


. A A ft lACT T AA 

.8R IF LAST SECTOR 




013756 


4 A 7 y 71 

105471 








BLO 


1 lA T A ^ A 

WRTRKD 


. DA T C 1 C C C 

;8R IF LESS 


' 56 


01 5760 


Art C ^ A ^ 

005202 








INC 


R2 


;NEXT BAD ♦ 1 


^37 


013762 


010237 


005536 






MOV 


R2.NEXT 


;NEXT STARTING ADDR'^SS 


158 


013766 


052721 


100000 






BIS 


*8IT15,(R1)* 


.-MARK THE ACCESSED SECTOR 


139 


013772 


AAA/ V% 

000432 








BR 


WRTRKC 


. TA CPT 1 lA 1 lAAr« r Al lAlT 

, TO SET UP WORD COUNT 


'AO 
'41 


013774 


105237 


AAC CCA 

005550 




WftTR<8: 


INC8 


rMTrvDrk > iA 

FnTDPB*10 


. f Ai/* AC AAC AlT TUC CTAATfAl/* CC/* T AA 

.INCREMENT THE STARTING SrCTOR 


K2 


014000 


052721 


1 AAA|"\A 

100000 






81S 


#8J 115, (Ru + 


;nAPK THt ACCtbScD SECTOR 


H3 


014004 


12571 1 


AAC CCA 






CMP8 


FMTDPB*10,(R1) 


.-STILL ON ANOTHER BAD SECTOR ? 




014010 


AA1 77i 

001 7/1 








BEQ 


URTRKB 


;LOOP AGAIN 


14S 


014012 


123737 


005550 


001 360 




CMPB 


FMTDPB* 10. MAXSE C ;IF START SECTOR > MAXSEC 


146 


014020 


101402 








BLOS 


1$ 


.•IMPROPER MFG INFORMATION 


U7 


014022 


000^ 37 


A 1 C A4 A 

01 5010 






JMP 


HORSE T 


;EXIT 


'48 
'49 


014026 


0227' 1 


1 77 f fr 




1$: 


CMP 


#-1,(R1) 


;T0 SEE IF NEXT BAD SECTOR IN TABLE 


^SO 


014032 


AA4 J / T 

001445 








RPO 


WRTRKD 


;BR IF NONE 


*51 


014034 


I 1 1 i A1 

I I n 0^ 








M0V8 


(R1),R2 


.•UPDATE THE NEXT 


152 


014036 


025702 


AA1 ZXA 

001 560 






CMP 


MAXSE C.R2 


;8AD SECTOR IS THP LAST SECTOR ? 


153 


014042 


AA'^ / Tf\ 

001450 








BEQ 


URTRKF 




1 54 


A 1 / Ay / 

014044 


1 AT/ 1^ 

105456 








BLO 


WRTRKD 


;8R IF LESS 


155 


014046 


005202 








INC 


R2 


;QAD SEC +1 


156 


014050 


010237 


005536 






MOV 


R2.NEXT 


.-NEXT STARTING ADDRESS 


157 


014054 


AC 1 7i 1 

05271 ! 


1 '\AAAA 

1 00000 






BIS 


#81T15,(R1) 


.MARK THE ACCESSED SECTOR 


158 
159 


014060 


A1 T"7AT 

01 5702 


AAC C 7^ 

005536 




WRTRKl : 


MOV 


NEXT,R2 


.•CALCULATE THE WORD COUNT 


160 


014064 


162702 


00000<r 






SJ3 


#2.R2 


.ENDSECTOR = NEXT - 2 


161 


014070 


006302 








ASL 


R2 


.-WORD INDEX 


162 


014072 


A 1 ^ *^A 1 

016203 


006164 








WCT8L(R2).R3 


; WORD CTR FOR SECTOR 0 TO ENDING SECTOR 


163 


014076 


1 1 3702 


A A C C C A 

005550 






MOVB 


FMTDP8»10,R2 


.•STARTING SECTOR 


164 


0H102 


00630? 








ASL 


R? 


.•WORD INDEX 


165 


014104 


1 ^AT 


AA^ IX/ 

006164 






SUB 


WCT8L(R2),R3 


.•WORD COUNT FOR SECTOR 0 TO STARTING SEfTOR 


166 


0 14 1 70 


A^ ^"TA* 

062703 


AAA/ A*^ 

000402 






ADD 


*258.,R3 


.•ADJUST ONE SECTOR 


167 


014114 


005405 








NEG 


R3 


;6ET THE NE ACTIVE WORD COUNT 


168 


014116 


010357 


005544 






MOV 


R3,FMTDP6*4 


.-LOAD THE WORD CTR INTO DPB 


•69 


014122 










BR 


WRTRKE 


.•LOAD THE STARTING ADDRESS 


TO 

T»1 


0U124 


012737 


^77777 


005536 


yR^RKF : 


MOV 


#-1.NEXT 


;ALL DONE 



'F HEADERS 



'72 



0U132 
3 0U156 
'7A OKUO 

176 0KU2 
1^7 014150 
178 

*80 0K156 
^81 0K162 
^82 0U166 
'35 0U170 
'84 0K17A 
'65 0U200 

186 0U202 

187 0'A206 
188 

'89 0U210 

190 0U2U 

191 CU216 
'92 

193 0U224 

194 014P32 

195 014240 

196 014244 

197 014250 

198 014252 

199 014254 

200 014260 

201 014262 

202 014264 

203 014272 

204 014276 

205 014300 

206 014302 

207 014304 

208 014306 

209 014310 
210 

211 014312 

212 014316 
215 C14324 

214 014326 

215 014332 

216 014334 

217 0U340 
?'8 



0527^1 
005302 
000405 

012737 
013702 

006302 
016203 
1 1 3702 
006302 
166203 
062703 
005403 
010337 
000240 

1 1 3702 
006302 
016237 

112737 
012737 
012706 
004037 
005540 
000774 
005737 
0017<'5 
100024 
012737 
004737 
104010 
104011 
104012 
104013 
104014 
104015 

004737 
022737 
001403 
005237 
000744 
005037 
005037 





^4 i(C . 


V •« . 4 


-APQ-81 


0 
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5 

15-3 


lOOOvC 






A ff C 

BIS 


•81 ' 1 J, iRl ) 




.-MASK THE SECTOR 








ISP ^ 

DEC 


R2 




.•PATCH FOR THE LAST SECTOR 








BR 


IrfRTftKH 




.•PATCH 


1 77777 


005!) 56 


WH » HKD : 


nov 






;IMO MORE BAD SECTOR 


001 360 






MOV 


MAXSEC.R2 




.LAST SECTOR 






WkTRKH: 


ASL 


R<: 




;U0RD INDEX 


006164 








WCT8L (Rt ' ,R5 




;UORD CTR FOR THE ENDING SECTO»< 


AAC CCA 

005550 






P10V8 


FMi DPB* iU,R<: 




.•aTARTiNG ADDRESS 








ASL 


R2 




;W0RD INDEX 


006164 






SLB 


WC T8L IRit) ,R3 




;W0RD CIR FOR THE STARTING SECTOR 


000402 






ADD 


ff<r30. ,R5 




.•ADJUST ONE SECTOR 








NcG 


R5 




; NEGATIVE WORD COUNT 








UAli 

nOV 


D Z C M T r\ DD A. / 

K J, r M I Uro+H 




.'LOAD THE WORD COUNT INTO DP8 








NOP 






- f\AAlP 

: DONE 


AAC CCA 

005550 




1 ip\ T r*** c _ 

WnTRKc : 




FMTDPB*! 0,R<: 




.■STARTING ADDRESS 








ASL 


R2 




.•LOCATE THE BUFFER ADDRESS 


006064 


00^546 




MOV 


ADRT8L<R2).FMTDP8»6 .-SUFFER ADDRESS 


AAA Z 7 

000163 


A A C C / "j 


WRTRK2 . 


M0V8 


*WRTHD.FMTDPB*2 


;SET WRITE HEADER & DATA COMMAND IN 


A1 / TI *^ 


AA1 1 "5/ 




MAl i 

MOV 


*..$LPERR 




.-SET UP LOOP ON ERROR ADDRESS 


AAi t A A 

0011 00 






nov 


*STACK.SP 




.-LOAD STACK POINT 


A71 '^1 / 

031214 




i>: 


1 C A 

JSR 


R0.RM05 




;G0 FORMAT A TRACK 












;ADRS OF PARAMETERS - T8L 








BR 


1$ 




.-WAIT FOR QUEUE IF FULL 


AAC C 




<:». 


T C T 


FMTDP8*16 




.•WAIT FOR COMMAND TO COMPLETE 








BcQ 


2t 




;8R IF NOT DONE 








BPL 


4$ 




;8R IF NO ERROR 


A 1 / 11 T 


AA^ 1 7iL 

001 ifo 




MOV 


*3$.$ESCAPE 




.-.•ESCAPE TO 3$ ON ERROR 


A 1 *" C A 






1 CD 


PC.ERINDX 




.■SEE WHICH ERROR 










10 




.■DRIVE OFFLINE 










11 




.•PERSISTENT DRIVE UNSAFE ERROR 










12 




.•UNCORRECTABLE MASS8U<^ PARITY ERROR 








CUT 


13 




.•SOFTWARE TIMEOUT 










14 




.•DRIVE UNSAFE ERROR 








EMT 


15 




.•DRIVE/CONTROLLER ERROR DURING WRITE 


0 166A0 




5». 


1 C A 

JSR 


PC.LOP.cx; 




.•LOOP ON THE ERROR ? 


AAAAA1 

000005 


AA 17/") 

001 54£r 




CMP 


*3, RETRY 




.-ERROR RETRY LIMIT ? 










4S 




;8R IF RJiACHED 


A A 1 T/ 0 

00 1 542 






iNC 


RETRY 




.-COUNT THE ERROR 








A A 

BR 


1$ 




.-TRY AGAIN 


AA 1 1 




4»: 


r 1 A 

CLR 


IE SCAPE 




.-CLEAR ERROR ESCAPE ADDRESS 


nm 








RETRY 




.-CLEAR THE RETRY COUNTER 
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*, 
5 

6 CU5A^ 
' 0U352 

8 

VJ CK570 
n OU37Z 

'5 0U400 
U CK4,02 

'7 0U41? 
18 OUCU 

?0 0K<.26 
^1 0U432 

25 0U444 

24 0U446 

25 0K450 
2f 0U452 

27 014454 

28 014456 
29 

3C 014460 
3 014466 

52 0144 70 

53 014474 

54 014476 

55 014500 
56 

57 014502 

58 014506 

59 014510 

40 014516 

41 014522 

42 014530 
45 014554 
44 

45 014556 

46 01454<r 

47 014550 

48 014552 

49 014554 

50 014556 
014556 

51 

014560 
55 014564 

54 014572 

55 C14574 



112757 
012737 
012706 

004037 
005540 
000774 
005737 
001775 
100152 

115737 
001005 
013737 
005237 
005357 
012737 
004737 
104010 
104011 
104012 
104013 
104014 
000240 

032737 
U01005 
033727 
1 30620 
001001 
104016 

005757 
001413 
012737 
004757 
012757 
004757 
104017 

005057 
032757 
001002 
1 04024 
000401 

104020 

015701 
115757 
006501 
016137 



000155 
OU552 
001100 

0312U 

005556 

005566 

001360 
0C1 344 
001344 
CU736 
016550 



040000 
005574 

001516 

014762 
020146 
100000 
020754 



001 1 76 
040000 



001344 
001344 

006064 



.SSTTl check 'RACK JUST yRITTEN 

;SET UP TO CHECK THf TRACK JUST WRITTEN. WITH A WRJTE iHtCK HEADER 
:AMD DATA COmANO 



00554? 
00M24 



CKTRK: 

1$: 
2S: 



001544 
001344 

001 1 76 



5»: 



00557C 



4$: 



001176 
001410 

005572 



005550 
005546 



6$: 
7$: 



M0V8 

MOV 

NOV 

JSR 

FMTDPB 

BR 

TST 

BFC 

BPL 

M0V8 

BNE 

HOV 

INC 
DEC 
MOV 
JSR 
EMT 
EMT 
EMT 
EMT 
EMT 
NOP 

BIT 

BNE 

BIT 

.WORD 

BNE 

EMT 

TST 
BEQ 
MOV 
JSR 
MOV 
JSR 
Ef'T 

CLR 
BIT 
BNE 
EMT 

BR 

EMT 

MOV 
M0V8 
ASl 
MOV 



#WCKHD.FMT0P8*2 

t..$LPERR 

tSTACK.SP 

R0.RMO5 

1$ 

FMTDPB*16 

21 

9$ 



SET WRITE CHECK HEADER & DATA '"OMMAND IN T8. 
5>ETUP LOOP ON ERROR ADDRESS 
LOAD STACK POINTER 

GO CHECK THE TRACK JUST FORMATTED 

ADRS OF PARAMETERS - TBl 

WAIT FOR QUEUE IF FULL 

WAIT FOR COMMAND TO CO»¥>LETE 

BR IF NOT DONE 

BR IF NO ERROR 



RM.REG*RMDA,aADSEC ;GET THE SECTOR ADDRPS> 



3S 

MAX SEC. BAD '^EC 
BAD SEC 

BADSEC 

#11S.$ESCAPE 

PC.ERINDX 

10 

11 

12 

13 

14 



8R IF NOT SECTOR 0 
RESTORE TO LAST SECTOR ♦I 
INCREMENT TO LAST SECTOR ♦I 
ADJUST rO BAD SECTOR 
.•ESCAPE TO 11$ ON ERROR 
SEE WHICH ERROR 
DRIVE OFFLINE 

PERSISTENT DRIVE UNSAFE ERROR 

UNCORRECTABLE MASS8US PARI TV ERROR 

SOFTWARE TIMEOUT 

DRIVE UNSAFE ERROR 

FILLER FOR 'ERINDX* ROUTINE 



WCF RM,REG+RMCS2 ; WRITE CHECK ERROR ? 
4i ;8R IF YES 

RM.RcG+RMER1.(PC)+ .'CHECK FOR DATA ERRORS 
DCK.OPI 'DTE.HCRC.'HCE.'FER 
A$ ;8R IF YES 

16 .-CONTROLLER/DRIVE ERROR DURING WRFE CHfC»( 



SOFSW 
5$ 

*12$.$ESCAPE 
PC. RECORD 
*MF,HDRBIT 
PC. RESET 
17 



.•RETRYING THE SECTOR ? 
;8R IF NO 

;; ESCAPE TO 12$ ON ERROR 

.•RECORD THE BAD SECTOR IN USR TABLE 

.•INDICATE 'USR* BAD SECTOR 

.•RESET THE HEADER BITS AND WRITE HEADER 

.•RETRIES NOT SUCESSFUL-SECTOR NOT ACCEPTABLE 



SESCAPf .-RESET ESCAPE ADDRESS 

*ERR.RM.REG+RMDS ;DATA ERROR ? 

6$ ;8R IF YES 

24 .-WRITE CHECK ERROR 

7$ .-CONTINUE 



20 



.-DATA ERROR DURING WRTE CHECK 



BADSEC. R1 .-FAILING SECTOR ADDRESS 

BADSEC, FMTDPB+10 .-SECTOR ADDRESS 

R1 .-SETUP INDEX TO ADDRESS WORDS 

ADRT8L(R1).FMTDPB*6 ."BUFFER ADDRESS FQR FARING SE^'OR 



S6 

57 0K606 

58 0K61? 
';<J 0T46U 
^0 0H620 

GK626 
tl 0K632 
V. 0H636 
65 0K640 

0K6A6 

68 OKbS? 

69 0U660 

70 0U664 

■'^ 0K670 

7^ 0K674 

74 0U676 

75 CU7(K 

76 0 K706 
"•7 0U712 

79 0U7U 

80 0U7?2 

81 0U724 
6^ 0U730 
8? 0K73A 
84 

85 0U736 

86 0 K74? 
8/ 0U750 
88 0U752 
8<? 0U756 

r 0U762 
0? 0U766 
95 0U77P 
^ OH 776 
V5 015002 
^ 01S004 
97 C15010 



015701 
005717 
100404 
015701 
162701 
006301 
016102 
113701 
006501 
166102 
005402 
010257 
012757 
005257 
000157 

005757 
OOU52 
022757 
001405 
005257 
000624 

125737 
001417 
004757 
005057 
000613 

004757 
022757 
U0U04 
005237 
000137 

005037 
005037 
005057 
005737 

10C402 
000' 57 



00^560 
C05556 

005536 
000002 

006164 
005550 

006164 

001 546 
177376 
001516 
014224 



016646 
000005 

001542 
01436^ 

001 1 76 
001 542 
001516 
005556 

CI 36^6 



CC5544 



001316 

000002 001316 
001316 

001360 005550 

01 7072 
001516 



001342 



F 5 
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1AXSEC.R1 ;R1 ENDING SECTOR * 

NEXT ; WHOLE TRACK DONE ? 

8$ ;8R IF IT IS 

NEXT.R1 ;LOAD CURRENT ENDING SECTOR 

#2.R1 .-ADJUST TWO SECTORS 

R1 ;WORD INDEX 

WCr8L(R1).R2 .-WORDCTR FOR ENDING SECTOR 

F«TDP8*10.r1 .-STARTING ADDRESS 

R1 .-WORD COUNT 

UCT8L(R1).R2 .-WORD CTR FOR STARTING SECTOR 
R2 

R2,SAVWC .-SAVE THE WORD COUNT 
*-258..FMTDPe*4 .-WORD COUNT FOR 1 SECTOR 

SOFSW .-INDICATE THAT A RETRY IS IN PROGRESS 

WRTRK2 .-REFORMAT ERROR SECTOR 

SOFSW .-RETRY IN PROGRESS ? 

12$ ;8R IF NOT 

#2. SOFSW .-SEE IF LAST RETRY 

10$ .-8R IF IT IS 

SOFSW .-INCREMENT RETRY COUNT 

1$ .-READ AGAIN 

MAXSEC.FMTDPe*'0 ;SEE IF LAST SECTOR ON THE TRACK 

12$ ;8R IF IT IS 

PC.SCAWC .-SETUP TO CHECK REMAINING SECTORS ON THE TRACK 

SOFSW ; CLEAR RETRY COUNTER 

1$ .-FINISH CHECKING THE TRACK 

PC.LOP.CK .-CHECK FOR LOOP ON ERROR 

#3. RE TRY .ERROR RETRY REACHED ? 

12$ ;8R IF IT IS 

RETRY .-COUNT THE RETRY 

^$ .-DO THE WRITE CHECK AGAIN 

$ESCAPE .-CLEAR THE ERROR RETURN ESCAPE ADDRESS 

RETRY ; CLEAR THE RETRY COUNTER 

SOFSW .-CLEAR THE SOFTWARE RETRY COiJNT 

NEXT .-WHO^E TRACK DONE ' 

15$ ;8R IF IT IS 

WR'^RKA 



6 
8 

^0 

1? 
U 
15 
16 

18 

■•Q 

?0 

?1 

^2 
.?? 



^A.Ku V04.00 4-AP«-e' 'e.-^y.-st pa'jE 



G 5 



0^S016 

015024 
0^5032 
015056 
015042 
015044 
015050 
015052 
015056 
015062 
015066 
015072 
015074 

CI 5076 
015102 

015104 









.SBTTl 


RO-jTiNf 


TO SET HEADER 


BIT 




jOvOtV 






aJ 1 


•OJ ■ 1 «OlbWK 


;LUW IW I KMC nil lr<A(.H 


00140*: 








DC A 


1* 
I • 


• DO I f MA T 


OOvl if 


A1 l'57r 






IMD 




• CTADT A.tAIIU mu Tur CAMF TDATv 




A/ AAAC 
U*tUUOJ 


AA1 / ' f 


1 C . 


nuv 




•tWfttrATF 'MFr;' BAn ccfTno 
, i iHU 1 u M ' c nr u OMU J C l I Un 


Olc'U*» 


AACA ?i 






nuv 


jtcc { C\ 1 OA 


, IHOLc r UK OHV oZv 'UK UIM LUKKtlMl 1 K^V P 


OiTC' 14 


1 77777 




TC . 

i »: 






• fhin DC T ADl F ") 










OCA 




-DD TC CA 


A"? "571 / 








D I T 


MQ I T 1 A ( DL > 


• uAC TuF ccrTno DF ACcrrQCtr> ^ 
, riMo 1 nc oCLlUn Ot AiiLtOitU . 


OOiUUO 








onlt 


J9 


, tJK ir 3U 


\Jjcr 1 *# 


A/ AAnn 








itn I T 1 A lOL) 


■MA<lf THF ^FrTflD TAm; F 


111457 


001544 






M0V8 


(R4) .8ADSEC 


.•SECTOR ADDRESS 


004757 


020754 






JSR* 


PC.f^ESET 


.•RESET THE HEADER 


AA D 7AA 
Ooc ' U'l 






7C • 

3» : 




*5 OA 


• tMTOFMFMT TMP TARl F DniMTFO 


OUU' o 1 








on 




• 1 nop I Kin BATk' 


UUU^«»0 












• Ai 1 nniuF 


004737 


016770 




WRTRKZ: 


JSR 


PC.TRKTST 


;GET UPDATED TRACK AND CYLINDER ADDRESSES 


000402 








BR 


VF YHDR 


.•RETURN HERE IF DONE 














;AND DO QUICK CHECK OF DISK 


000137 


015270 






JW> 


URTRKX 


.•CONTINUE WITH THE fORflAT 



• • • r 
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7 cisno 


005037 


001 3*.? 




YHDR: 


CLR 


RE 1 HY ; 


8 0151U 


005757 


0C1 52C 






T C T 

T ST 


nVDt ; 


9 0' 


15120 


001003 








ONE 


1 c 


10 01 


5122 


1 A y y At 

104401 


037537 






T VPt 


.rijavtw ; 


' 1 0' 


•»126 


000402 








oH 




V 01 


5150 


104401 


037576 




1 < . 

» : 


T VDC 




15 01 


513<. 


004737 


016714 




2S: 


JSR 


PC.SETDPB 


H 01 


51AO 


004737 


017120 






JSR 


PC.SETHDR ; 


IS 0' 


5'' 44 




A/ ^07/ 

04o?34 




7« . 

3» : 




irDi <C D DA 


\t 0 


5150 


012701 


i Ax / 7/ 

106454 






MOV 


MQI IE IJ D 1 


V 0' 


5154 


A1 Ai 77 

0101 5' 


AAC C/ ^ 






MAW 


D1 CMTnDD*^ 


"•8 0' 


5160 


rt1 7777 


AA1 7C 

OU 1 33^: 


AAC C// 
VU ' JH'« 




nuv 


Mur rMTDDQ*^ 


19 


5166 




AA1 7')'D 

001 3ir£ 






ILK 




?0 C/' 


51 72 


AAC 777 

005/^5/^ 


AA 1 7 OA 

UO 1 5^:0 






T C T 


MAhC 

nuuc . 


c^l 01 


51 76 


AA1 AAC 

Uu 1 UU J 








□iMc 


cc 

3> t 


?2 01 


5200 


A1 0777 


1 7777A 


AAC cy./ 
UU33H** 


L t . 

» : 


MAW 

nUV 


EMTHDR*^ 
w c < r rl 1 Ur D *H J 


c-*? 01 


5206 


rtrtC ^77 


AA1 7 50 










2t 0 


5212 


r^i ^777 


Ai c "51 0 
U 1 3 c 1 C 


AA 110/ 
UU 1 1 t 


cc • 


nUV 


M Cl PCDD 


?6 01 


5220 


1 1 ■5777 


A AAA OA 


AACC/ 1 
UU33H ' 


o« • 


MA\/Q 

nUVtJ 


HOr\ PMTnDQ«1 
wtU,rniUrO*l < 


01 


5226 


A'377'57 


nn c c Q 0 

UU333£ 


AA1 / /.A 
UU 1 SClD 






r n 1 uro* 1 c »*Occ p , 


28 01 


5234 


1 A7/ f\/ 

1 U54U4 








Qi A 
□LU 


7$ 


?9 01 


5256 


'23737 


005551 


001324 




CMP8 


FMTDPB+11.LSTRK '. 


30 0 


5244 


001405 








BEO 


8t 


?1 01 


5246 


AAC777 


Ani lCi» 
UU 1 530 






TC T 


cc r "Cn 
ic i. jU 


S^" 01 


5252 


UU lUUc 








onic 


0* 


55 0 


5254 


1 U5U3' 


Artec/ 1 

(JU334 1 










iti 01 


5260 


1 1 57?7 


AAA1 / 7 
UUU 1 *»3 


UU 33*»r 


fit ■ 


MAV/P 


woC l*ni ,riMi UrO*c 


35 01 


5266 


An/ nT7 


A71 01 /. 

U5 1 1: 1 H 




y« . 


1 CD 


DA DMA*; 


56 01 


5272 


nnc c/ n 








F MTDDQ 

r r\ 1 Ur'H 




57 01 


c'^'yy 

527** 


000774 








BR 


9$ 


58 01 


5276 


005737 


005556 




lot: 


TST 


FMTDD8«-16 


59 01 


5502 


AA1 77C 








at u 


1 At 

1 U> 


ttO 

ti 1 0 


5504 


1 1 5777 


AAA1 77 
UUU 1 f 5 


AACCZ. 0 
UUj J'^t 








'1? CI 


Clio 

551? 


AA/ n77 
UU4U3^ 


.'171 01/. 
Uj I c I *• 






1 CD 


OA DMACi 


^5 0 


5316 


AACC / A 

UU J j4U 
















nAr>777 
UUU fjf 








DD 


AC 


^,5 01 


5322 




UUJ 3 30 






TCT 


PMT rtpn« 1 A 

r I L/rC3 ' 1 D 


A6 0^ 


5326 










DC W 


1 Pi 


01 


5330 


100046 








BPL 


15$ 


<.8 

49 01 


5332 


012737 


015562 


001 1 76 




«104/ 


*18$.$ESCAPE 


50 0^ 


5340 


CO4737 


016550 






JSR 


Pf ,ERINDX 


M 01 


5344 


104010 








fMT 


10 


5? 01 


5346 


104011 








EMT 


11 


0 


5350 


i04012 








FMT 


12 


5^, 0 


'5352 


104013 








EMT 


13 


■5 0 


15354 


104014 








EMT 


14 




'5556 


000240 








NOP 





.sbttl verify header rouune 

this code makes sure each cylinder formatted contains the 

proper cylinder address. the program is looking for 

possible positioner errors that may have occurred during the fcr'^ia', 

clear retry counter 
is it 'verify header only' mode ? 
8r if yes. else 

type 'starting quick header verify* 

type 'starting header verify' 
set drive parameter tab' e 
set headers in core 

get starting address of expected headers 
get starting address of recievfd headers 
set up buffer address 
setup word for verify only mode 
setup mult i -sec tor read flag 
is it 'verify header only' mode ? 

8R IF YES 

SETUP WORD COUNT FOR QUICK VERIFY 
SETUP SINGLE SECTOR READ 



ON ERROR ADDRESS 

BIT FOR 16 BIT FORMAT 

CYLINDER ? 



SETUP LOOP 
LOAD 'FMT' 
IS IT LAST 
8R IF NO 

LAST TRACK OF LAST CYLINDER (8SF ) : 
BR IF YES 

IS IT 16 BIT MODE ? 
8R IF YES 

LOAD 'FMT' BIT FOR 18 BIT FORMAT 

;'LOAD FORMAT' COMMAND 
START THE COMMAND 
DPS ADDRESS 
QUEUE FULL RETURN 
LOOK FOR DONE 
LOOP UNTIL FINISHED 

SET UP READ HEADER I DATA COMMAND 

GO READ HEADER 

ADRS OF PARAMETER TBL 

WAIT IF QUEUE IS FULL 

WAIT FOR COMMAND TO COMPLETE 

BR IF NOT DONE 

BR IF NOT ERROR 

.•ESCAPE TO 18$ ON ERROR 
SEE WHICH ERROR 
DRIVE OFFLINE 

PERSISTENT DRIVE UNSAFE ERROR 

UNCORRECTABLE MASS8US PARITY ERROR 

SOFTWARE TIMEOUT 

DRIVE UNSAFE ERROR 

FILLER FOR 'ERINDX' ROUMNE 



^8 

o9 

'0 

71 

^6 
^7 

^8 

70 
80 
81 

8^ 

85 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
9S 
96 
97 
98 
99 
100 
101 
10^ 
10? 

104 

105 
106 
107 
108 
109 
110 
Til 
'1? 
113 



''S3tfe 
J ^370 
01*>374 
0^S376 
31540? 
C15410 
0'5412 
D''54?0 
015422 
015430 
015452 
015432 

015434 
015442 
015444 

015446 
CI 5452 
015460 
015464 
015472 
015474 
015502 
015504 
015512 
015516 
015522 
015530 
015532 

015534 
015542 
015550 
015556 
015560 

015562 
015566 

0155/2 
015576 
015600 
015606 
015610 
015614 
015620 
015624 
015626 
015632 

015634 
015640 
015644 
015652 
015654 



C52757 
001427 
005737 
001701 
005237 
022737 
101273 
022737 
001404 
032737 

001401 

104022 

022757 
001455 
104021 

005037 
012737 
011037 
023727 
103407 
123737 
001003 
052737 
052711 
011137 
023737 
001401 
104023 

016037 
016137 
023737 
001405 
104007 

00A737 
000137 

005737 
001416 
123737 
001412 
105237 
062700 
005737 
001235 
062701 
000705 

105037 
105237 
123737 
101003 
004737 



0400C' 

001 522 

001 542 
000003 

000200 

000400 



001542 
015562 
046230 
005552 

005551 

010000 
140000 
046224 
046224 



000002 
000002 
046226 



010646 
016510 

001320 

005550 

005550 
001004 
001322 

001004 



005550 
005551 
005551 

C 7520 



001342 
005574 
005574 



13$: 



100000 005622 '4S: 



001176 
001466 
001324 
046230 

046230 



15S: 



16$: 



046232 17$: 

046226 

046252 



18$: 
19$: 



001560 



2U$: 



001 ^3c^ 



91" 
BEO 
TST 
3EQ 

BHJ 

BEO 

Br 

BEO 
EWT 

Clip 
BEO 
EMT 

CcR 

MOV 

W)V 

CMP 

BLO 

CMP8 

BNE 

BIS 

BJS 

MOV 

CW 

BEQ 

EMT 

MOV 
MOV 
CMP 
BEO 
EMT 

JSR 
JMP 

TST 

BEO 

CMP8 

8FQ 

INC8 

ADD 

TST 

BNE 

ADD 

BR 

CLR8 
JNC8 
CMP8 
BHI 

JSR 



I 5 
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#E«R.R«.REG«"'2 
15$ 

SNGSEC 
4$ 

RETRY 
»3. RETRY 
4$ 

#MCE .RM.RFG*U 
13$ 

#h:rc,rm.reg*14 

14$ 

22 

#8SE,RM.REG*42 
19$ 

21 

RETRY 

*18$.$ESCAPE 
(RO) .RBUF*4 
FMTDPB*12.*822. 
16$ 

FMTDPB+11 ,LSTRK 
16$ 

*FMT.R6UF+4 
*MF .UF.CRI ) 
(R1 ) .RBUF 
R8UF .RBUF*4 
17$ 
25 

2(R0).RBUF*6 
2(R1) .PBUF+2 
R8UF*2.RBUF*6 
19$ 

7 

PCLOP.CK 
REJCTS 

MODE 
20$ 

FMTDPB*10.MAXSEC 
20$ 

FMTOPB+10 
*516..R0 
SNGSEC 
11$ 

#516. ,R1 
15$ 

FMTDPB+10 
FMTDPB*11 
FMTDPB^II .MAXTRK 
21$ 

PC.UPDTRtc 



ANY DRIvE fHRGRS ^ 
BR If NO 

ALREADY READING SINGlE if^^O'^^ 
8R IF NO 

INCREMENT RETRY (OUNT 
TRIED 3 TIMES ? 
8R IF NO 

IS IT A HEADER COMPARE ERROR ? 
8R IF YES 

IS IT A HEADER CRC ERROR ? 
8R IF NO 

•HCE* OR 'HCRC ERROR VERIFYING HEADERS 

8AD SECTOR ERROR ? 
8R IF YES 

CONTROLLER/DRIVE ERROR VERIFYING HEADERS 

CLEAR RETRY COUNT 

.•ESCAPE TO 18$ ON ERROR 

GET EXPECTED CYLINDER HEADER 

IS IT LAST CYLINDER ? 

8R IF NO 

LAST TRACK OF LAST CYLINDER (8SF ) •> 
8R IF NO 

BAD SECTOR FILE IS ALWAYS 16 BIT MODE 
SET MFG AND USR GOOD SECTOR BITS 
GET RECIEVED CYLINDER HEADER 
SEE IF CYL READ EQUALS CYL EXPECTED 
8R IF CYL CORRECT 

CYLINDER FIELD IN HEADER IS NOT CORRECT 



GET EXPECTED 
GET RECIEVED 
IS TRACK AND 
8R IF YbS 
TRACK/SECTOR FIELD 



TRACK/SECTOP EADER 
TRACK/SECTOR HEADER 
SECTOR CORRECT ? 



IN HEADER IS NOT CORRFTT 



CHECK FOR LOOP ON ERROR 

FAILED DURING HEADER CHECK. REJECTED 

IS IT 'FORMAT' MODE ? 
BR IF 

;DONE WITH ALL SECTORS ? 
BR IF YES 

UPDATE SECTOR ADDRESS 

ADJUST POINTER TO NEXT EXPECTED HEADER 

READING ONE SECTOR AT A TIME ? 

8R 'F \'ES 

ADJUST POINTER TO NEXT RECIEVED HEADER 
GO COMPARE NEXT SECTOR 

START AT SECTOR 0 
INCREMENT TRACK NUMBER 

.-WAS IT LAST TRACK ? 
8R IF YES 

UPDATE TRACK ADDRESS IN BUFFER 



HEADER ROUTINE 



A C^S660 


000425 








8H 


^ 16 01566? 


n3737 


001 534 




<r |»: 




17 015670 


005757 








T C T 


118 015674 


001407 








ocQ 


h9 015676 


005337 


00555<? 






Del 


VO 015702 


/\^79T7 

023737 


005552 


00 1 526 




Lnr 


?1 015710 


00241 3 








Dl T 

BLT 


^12 015712 


000406 








BH 


^23 0157H 


005237 


005552 




22>: 


INC 








nni 75^ 




TMP 


1?5 0157P6 


101004 








BHl 


126 015750 


004737 


017206 




23$: 


JSR 


V7 015734 


000137 


015144 




24$: 


JMP 


1?8 015740 








25$: 
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24$ ;G0 READ NtX^ TRACK 

MINTRK.fMTDP9*n ;GET STARTING TRACK ADDRfSS 

WRAP .-SEEKING FROM Hi TO LO CYLINDERS ? 

22$ ;8R IF NO 

FMTDPB*12 .-DECREMENT CYLINDER ADDRESS 

FMTDPB*12.MAXCYL .-DONE WITH VERIFY ? 

25$ ;8R IF YES 

23$ 

FMTDPB*1? .-INCREMENT CYLINDER ADDRESS BEING CHECKED 

FMTDP8*12.MAXCYL .-DONE WITH VERIFY ? 

25$ .-8R IF YES 

PC.UPDCYL .-UPDATE CYLINDER ADDRESS IN BUFFER 

3$ .-GO READ NEXT CYLINDER 



v04.00 



K 5 
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.s8til end of pass routine 



•INCREMENT THE PASS NUMBER (SPASS) 
•IF THERES A MONITOR GO TQ IT 
•IF THERE ISN'T JUMP TO DONE 



fll K7Lt\ 








•c u~ • 




\J ijf ••v 


fins 7^7 


Uv • vO 




1t- 




\J 1 JfHH 


nnis^s 








DC U 


015746 


005037 


001 342 






CLR 


015752 


004537 


020250 






JSR 




WW J** JH 








1 I^^TAA-ffl 




nnA7^7 

wV*« f Jt 


n?n^in 

WH 1 \J 










11 ?7'?7 


nnnopn 


nnssil 




MnvR 

1 IwvO 


ni S77P 


^^J7'K7 

1 \ Cf Jl 


nnnii^ 


\J\J J J**C 




1 Iw VD 


016000 


004037 


031214 




2$: 


jSR 


016004 


005540 








FMTDP8 


CI 6006 


000774 








BR 


016010 


005737 


005556 






TST 


016014 


001 775 








RFQ 


016016 


\J I C 1 -It 


001466 

\J\J 1 » \J\J 


00555? 




MOV 


016024 


113737 


001324 


005551 




M0V8 


016032 


105037 


005550 






CLR8 


016036 


012737 


157700 


005544 




MOV 


016044 


012737 


046234 


005546 




MOV 


016052 


112737 


000163 


005542 




MOVB 


016060 


004037 


031214 




4$: 


JSR 


016064 


005540 








FMTDPB 


016066 


000774 








BR 


016070 


005737 


005556 




5$: 


TST 


016074 


001 775 








BEO 


016076 


1 00060 








BPL 


016100 


012737 

VIC* J f 


016126 


001176 




MOV 

IV/ » 


016106 




016550 






JSR 


016r2 


104010 








EMT 


0161 14 


10401 1 








EMT 


C16116 


104012 








EMT 


016120 


104013 








FMT 


016122 


104014 








FMT 


016124 


10401 5 








FMT 


016126 


005237 


001342 




6$: 


INC 


016132 


0227Z7 


000003 


001342 




CMP 


016140 


101347 








BHI 


016142 


000137 


016464 






JMP 


016146 


122737 


000037 


005550 




CMP8 


016154 


003431 








8LE 


016156 


113737 


005566 


001344 




MOVB 


016164 


001003 








8NE 


016166 


012^37 


000037 


001 544 




MOV 


016174 


113737 


001 544 


005550 


7$: 


MOVB 



UPD8SF 
8$ 

RETRr 
R5,S0RT2 . 

PC.SETBSF 
#20,FMTDPB*1 
*SETFMT.FMTDP8*2 



R0.RM05 
2$ 

FMTDPB*"'6 
3$ 



UPDATE LAST TRACK ' 
BR IF NO 

CLEAR RETRY COUNT 

SORT THE USTA8 IN ASCENDING FORM 

TABLE ENTRY POINT 

SETUP THE BUFFER FOR THE BAD SECTOR fllF 
16 BIT MODE 

;SET FORMAT COMMAND 

.•CALL THE DRIVER 



.-LOOP IF QUEQU FAILS 
;ALL DONE ? 
;8R IF NOT 



#822. ,FMTDP8+12 .'CYLINDER ADDRESS 

LSTRK.FMTDP8+11 .-TRACK NUMBER 

FMTDP8+10 .-SECTOR 0 
#-<258.»32.>.FMTDP8+4 ;WORD COUNT 

#8UFP.FMTDP8+6 .-BUFFER ADDRESS 

*WRTHD.FMTDP8+2 .'WRITE HEAD AND DATA COMMAND 

R0.RM05 .'CALL THE DRIVER 

4$ ;L00P IF QUEUE FAILS 

FMTDPB+16 ;ALL DONE ? 

5$ ;BR IF NOT 

8$ .'EXIT IF NO ERROR 

*6$.$ESCAPE .-ERROR ESCAPE ADDRESS 

OC.ERINDX .-ERROR INDICATOR RT. 

10 .-DRIVE OFFLINE 

11 .-PERSISTENT DRIVE UNSAFE ERROR 

12 .-UNCORRECTABLE MASS8US PARITY ERROR 

13 .-SOFTWARE TIMEOUT 

14 .-DRIVE UNSAFE ERROR 

15 .-DRIVE/CONTROLLER ERROR DURING WRITE 

RETRY .-INCREMENT RETRY COUNT 

*3. RETRY .-OVER 3 TIMES ? 

4$ .-8R IF IT IS 

REJCT3 .-UNABLfc TO WRITE THE BAD SECTOR TRArK 

#31. .FMTDPB+10 ;LAST SECTOR ? 

8$ ;8R IF ALL SET 
RM.REG^RMDA.BADSEC .-FOUND THE BAD SECTOR 

7$ .-BR IF NOT 0 

#51.,BADSEC .-^HE LAST SECTOR IS A BAD SECTOR 
BADSEC. FMTDPB* 10 .'LOAD THE NEW STARMNG SECTCR 



PASS ROuMf^ 



016202 
016206 
C16210 
016216 
016224 
016232 
016256 

016240 
016244 
016250 
016252 
016256 
016262 
016264 
016270 
016274 
016300 
016304 
016306 
016314 
016320 
016326 
016330 
016332 
016334 
016336 
016340 
016342 
016546 
016350 
016552 
016354 
016556 
016360 
016562 
016362 
016364 

016366 
016372 
016374 
016400 
016404 

016410 
'0 016416 
•1 016420 
'2 016424 



2 
3 
4 
5 
6 
7 
8 
9 



115701 
006301 
0^6137 
012757 
066137 
005037 
000710 

104401 
005737 
001405 
104401 
013746 
104405 
005037 
005037 
104401 
005757 
001050 
015757 
005257 
042757 
005527 
000001 
00501 3 
012737 
000001 
016330 
013700 
001405 
000005 
U04710 
000240 
000240 
000240 

000137 
016366 

105757 
001406 
004737 
004737 
0001 37 

032777 
001002 
0001 37 
000137 



001544 

006064 
157700 
006164 
001342 



037427 
001126 

037442 
001126 

001126 
001406 
042423 
001400 

0C1402 
001216 
100000 



000042 



nACWO V04.00 



00554*. 
005544 
005544 
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S€0 0065 



8$: 



9$: 



001400 
001216 



001150 

01 7360 
024414 
010446 

000001 162536 

011124 
01 3056 



SEOPCT: 

SENDCT: 
$6ET42: 

$ENDAD : 

SDOAGN: 
SRTNAD: 
DONE : 



1$: 
2$: 



wove 

ASL 
MOV 
MOV 
ADD 

CLR 
QR 

TYPE 

TST 

BEQ 

TYPE 

MOV 

TYPDS 

CLR 

CLR 

TYPE 

T5. 

B^iE 

MOV 

INC 

BJC 

DEC 

.WORD 

8GT 

MOV 

.WORD 

SEOPCT 

MOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

JMP 
.WORD 

TST8 

BEQ 

JSR 

JSR 

JMP 

BIT 
8NE 
JMP 
JMP 



8ADSEC.R1 .'LOAD THE WORD CTR AND BUfffk 

R1 .-WORD INDEX 

ADRT8L{R1).FMTDP8*6 ."BUFFER ADDRESS 
#-<258.«32.>.FMTDP8*4 ;WORD COUNT 
WCT8L(R1).FMTDPQ*4 ;WORD COUNT 



RETRY 
4S 

.MSCMPT 

%l'<Ui. 

9> 

,NUMeRR 
$ERTTL.-(SP) 

$ERTTL 

UPD8SF 

.STARS 

DEVMP 

DONE 

DEVMP*2, DEVMP 
$PASS 

*1 00000. SPASS 
(PC)* 

1 

$DOAGN 

(PC)*,S(PC)* 

1 

3*42, RO 
SDOAGN 

PC,(RO) 



S(PC)* 
DONE 

SAUTOB 
1$ 

PC.SI.CLk 
PC.STKINT 
ST1 

/irswo.aswR 

2$ 

ASK 2 
ST3 



RESET THE RETRY FLAG 
BR BACK 

TYPE 'COMPLETED' 
ANY ERRORS DETECTED ? 
BR IF NO 
TOTAL ERRORS 

.•SAVE tERTTL FOR TYPEOUT 

;G0 TYPE— DECIMAL ASCII WITH SIGN 

CLEAR THE ERROR ACCUMULATOR 

DON'T ALLOW UPDATE OF 'BSF ' AT END OF PASS 

TYPE 

ALL ASSIGNED DEVICE DONE ? 

TO FORMAT NEXT DRIVE 

RESTORE DEViCE MAP FOR AU^O MODE 

.•INCREMENT THE "^ASS NUMBER 

.-DON'T ALLOW A NEC. NUMBER 

;LOOP? 

.•YES 

.•RESTORE COUNTER 



GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE WORLD 

GO TO MONITOR 

SAVE ROOM 

FOR 

ACT11 



;; RE TURN 



RUNNING IN AUTO MODE ? 
BR IF NO 
START THE CLOCK 
INITIALIZE THE KEYBOARD 
RETURN TO AUTO MODE START 

IS SW00=1 (SET) ? 

8R If YES 

ASK FOR NEXT DRIVE 

GO— LOOP ON SELECTED DRIVE 



I3, ;/M' S/^ V FORMATTER 
' ' Mt .bAGE 'ABLE 
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SEO 0064 



5 

t 
7 

8 
9 

:o 

n 
1^ 

It 

18 
19 

?0 
21 
22 
25 
24 
25 
26 
2/ 
28 
29 
50 
51 



316450 
0^6454 
016440 

016442 
016446 
016454 
016462 

016464 
016470 
016474 

016476 
016502 
016506 

C16510 
016514 
016520 

016522 
016526 
016532 

016534 
016540 
016544 



10'«401 
104401 
000455 

104401 
012737 
113737 
104025 

104401 
104401 
000417 

104401 
104401 
000412 

104401 
104401 
000405 

104401 
104401 
000400 

005037 
104401 
0001 57 



001205 
037704 



001205 
016534 
005551 



001205 
041563 



001205 
041630 



001 205 
041665 



001205 
037645 



001406 
042226 
015740 



001176 
001564 



.S8TTl 


REJECT 


MESSAGE TABLE 




REJCT1: 


TYPE 
TVPE 
BR 


,$CRLF 
,MESG4 
REJEND 


; CR-LF 

.-TYPE 'DISK IS AN ALIGMIENT PACK' 


REJCT2: 


TVPE 
MOV 
M0V8 
EMT 


,$CRLf ; CR-LF 

#REJENO.SESCAPf ; .-ESCAPE TO REJEND ON ERROR 
FMTDPB*11.DS.TRK .-TRACK NUMBER FOR ERROR LOG 
25 .-REPORT ILLEGAL BAD SECTOR 


REJCT5: 


TVPE 
TVPE 
BR 


.ICRLF 

.MESG17 

REJEND 


; CR-LF 

;TYPE 'UNABLE TO WRITE BAD SECTOR FRF 


REJCT4: 


TVPE 
TVPE 
BR 


.$CRLF 

.MESG18 

REJEND 


; CR-LF 

;TYPE 'FATAL ERROR DETECTED' 


REJCT5: 


TVPE 
TVPE 
BR 


.$CRLF 
.ME SGI 9 
REJEND 


; CR-LF 

.-TYPE 'FAILURE DURING HEADER VERIFY' 


REJCT6: 


TVPE 
TVPE 
BR 


.SCRLF 
.MESG3 
REJEND 


; CR-LF 

.-TYPE 'OVER 126. BAD SECTORS DETECTED' 


REJEND: 


CLR 

T VDC 

1 Yrt 
JMP 


UPD8SF 
.ABORT 
$EOP 


;DON'T ALLOW BSF UPDATE AT END OF PASS 

.-TYPE 'OPERATION ABORTED' 

.•EXIT 



k'^lBO RMOS/3/2 FCWMATTER 
F-t^'LRT SUBROUTINES 



•»1ACR0 ^4.00 
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2 
I 
4 

5 
6 
7 
8 
9 
^0 
1 1 
)2 
13 
K 
15 

17 

18 

19 

20 

21 

22 

25 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

53 

34 

55 

36 

57 

38 

39 

40 

41 

^2 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



016550 
016552 
016554 
016556 
016562 
01656A 
016566 
016570 
016572 
016574 
016576 
016600 
016602 
01660A 
016606 
C16610 
016612 
016614 
016616 
016620 
016622 
01662A 
016626 
016630 
016632 
016634 
016640 
016642 
016644 



016646 
016654 
016656 

016662 
CI 6666 
016672 
016674 
016676 
016704 
016706 



016714 
016722 
016726 
016734 
016742 



010046 
010146 
005001 
012700 
032710 
060006 
001021 
032710 
010000 
001015 
032710 
006000 
001011 
032710 
001400 
001005 
032710 
000020 
001001 
005201 
005201 
005201 
005201 
005201 
006301 
060166 
012601 
012600 
000207 



032777 
001402 
000177 

005037 
033727 
072002 
001004 
032737 
001402 
000137 



016712 000207 



113737 
105037 
013737 
012737 
105037 



.S8TTL SUPPORT SUBROUTINES 

.•THIS ROUTINE DETERMINES THE ERROR TYPE 



005556 



000004 





nw » 








MOV 


R1,-(SP) 


<;a\/f ri 




CLR 


R1 ' '. 


CLEAR RI 




nov 


#F/>'"'DPB+16 RO 


GET DRIVER STATUS WORD 




BI T 


(PC)*.(RO) 


CHECK ERROR TYPE 




.WORD 


BJ '14 BI T1 3 81 T2 


8I''1 -DRIVE OFFLINE 




BNE 


5$ 


8R IF OFFLINE 




BIT 


BIT12 


CHECK ERROR TYPE 




.WORD 


'DRIVE PERSISTENTLY UNSAFE 




BNE 


4$ 


8R IF UNSAFE 




BJ T 


(PC)*.(RO) 


•CHECK ERROR TYPE 




.WORD 


BIT1 1 'BIT10 


•UNCORRECTABLE MASS8US PARITY ERROR 




BNE 


3$ 


•8R IF PARITY ERROR 




BIT 


(PC)*. (RO) 
BIT09.BIT08 


•CHECK ERROR TYPE 




.WORD 


•SOFTWARE TIMEOUT ' 




BNE 


2$ 


;8R IF YES 




BIT 


(PC) (RO) 


•CHECK ERROR TYPE 




• WORD 


BIT04 


; DRIVE UNSAFE ERROR ? 




BNE 


1$ 


;8R IF YES 




INC 


R1 


;INDEX=12, ERROR-'USER DEFINED' 


1$: 


INC 


R1 


.•INDEX=10, ERR0R=14 


2$: 


INC 


R1 


;INDEX= 6. ERROR- 13 


3$: 


INC 


R1 


;INDEX= 4. ERR0R=12 


4$: 


INC 


R1 


;INDEX= 2, ERR0R=11 


5$: 


ASL 


R1 


.•INDEX= 0. ERROR-10 




ADD 


R1,4(SP) 


.•DEVELOP THE RETURN ADDRESS 




MOV 


(SP)*.R1 


.-RESTORE RI 




MOV 


(SP)*.RO 


.•RESTORE RO 




RTS 


PC 


.-RETURN 



.-ROUTINE TO CHECK FOR LOOP ON ERROR 



001000 

162242 

001 1 76 
005556 

004000 
016476 



001222 
005543 
001352 
046234 
005550 



162300 



LOP.CK: BIT 
BEO 
JMP 



005574 



1$: 



2$: 
5$: 



CLR 

BIT 

.WORD 

BNE 

BIT 

BEQ 

JMP 

RTS 



#SW09.aSWR .-LOOP ON ERROR ? 

1$ ;8R IF NOT 

(iSLPERR ;G0 TO THE LOOP ON ERROR ADDRESS 

SESCAPE ; CLEAR THE ERROR ESCAPE ADDRESS 

FMTDP8*16,(PC)* ; CHECK FOR 'FATA ' cRROR 

BIT14!8IT13!8IT12.8IT1018IT01 .-'FATAL' ERROR BITS 

2$ ;8R IF YES 

#WLE.RM,REG*RMER1 ;WRITE LOCK ERROR ? 

3$ ;8R IF NOT 

REJCT4 .-TERMINATE THE FORMAT 



PC 



.■RETURN 



.-THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE 



005540 

005544 
005546 



SETDP8: M0V8 
CLR8 
MOV 
MOV 

CLRB 



DRIVE.FMTDPB 
FMTDPBt-3 
MWC.FMTDPB+4 
#8UFP.rMTDP8*6 

fMTDPf=»10 



SET UP DRIVE ft 

CLEAR HIGH ORDER ADRS BITS 

LOAD UP WORD COUNT 

LOAD UP CURRENT ADRS 

SET SECTOR TO ZERO 



i^pEr:Rr SUBROUTINES 
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EO 006t 



58 Ot6746 

59 016754 
016762 
016766 



60 
61 
6 

ht, 

66 
67 
68 
o9 
'0 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
8^ 
84 
85 
86 
87 
88 
8V 
90 
91 
9^ 
93 
94 
95 
96 
97 
98 
99 
100 
^0^ 
10? 
103 
104 
105 
106 
107 
108 
109 
110 
'11 

' '4 



016770 
016770 
016774 
017002 
017004 
017' '0 

017012 
017020 
017024 
017026 
CI 7032 
017040 
017042 
017044 
01 705C 
01 7056 
017060 

017064 
01 7070 



017072 
0^7100 
017106 
017112 
017116 



017120 
017124 
017132 
017136 
017142 
017146 
017152 
017154 
017160 
017162 
017166 
017170 
017172 
017176 



113737 
013737 
005037 
000207 



105237 
123737 
101003 
D '»737 
00< .25 

115737 
005737 
00*407 
005337 
C23757 
002413 
000406 
005237 
023737 
101004 
004737 

062716 
000207 



013737 
062737 
005237 
005037 
000207 



01 3701 
012737 
012700 
013702 
052703 
013703 
000303 
005737 
001402 
052702 
010220 
010320 
062700 
005203 



001334 
G01350 
005556 



005551 
005551 

017320 



001 334 
001 376 

005552 
OC5552 



005552 
005552 

017206 

000002 



00^ 346 
001004 
005550 
001316 



005551 
005552 



Move M]NTRK.FmDP8»11 ;SET UP STARTING TR»( AORS 

MOV MlNCyL.FMTDP8*12 ;SET JP STARTING CVL 

CLR FMTDPB*16 ;CLEAR STATUS 

RTS PC .-RETURN FROM SETUP 

.-THIS ROUTINE CONTROLS THE DISK ADDRESSING AND TOTAL TRK COUN' 
;IT IS ENTERED AFTER EVERV TRK OPERATION 



TRUTST; 



001332 



005551 



001326 



001326 





INCB 




CMPIB 




BHI 




JSR 




BR 


It: 


MOVB 




TST 




8EQ 




DEC 




CMP 




BLT 




BR 


21: 


INC 




LMP 




BHI 


31: 


JSR 


4J: 


ADD 


5$: 


RTS 



FMTDPB^n .'INCREMENT TRACK NUMBER 

FMTDPB+11 .MAXTRK ;LAST TRACK BE FORMATTED ON ThJc [yHuh^H 

1$ ;BR IF YES 

PC.UPDTRK .-UPDATE TRACK ADDRESS IN BUFFER 

4f .-EXIT 

MINTRK.FMTDP8*11 ;GET STARTING TRACK ADDRESS 

WRAP .-SEEKING FROM Hi TO LO CYLINDER ? 

2% ;8R IF NO 

FMTDPB*12 .-DECREMENT CYLINDER ADDRESS 

FMTDPB*12.MAXCYL ."DONE WITH FORMATTING ? 

5f .BR IF YES 

3$ 

FMTDPB*12 .-INCREMENT CYLINDER ADDRESS 

FMTDPB*12.MAXCYL ;DONE WltH FORMATTING ? 

5$ .-BR IF YES 

PC.UPDCYL .-UPDATE CYLINDER ADDRESS IN BUFFER 



#2.(SP) 
PC 



.-ADD TWO TO RETURN ADRS (NOT DONE) 
.-RETURN. DONE FORMAT I ! 



.-THIS ROUTINE SETS UP WC £ 8A FOR REMAINING SECTORS 
.-AFTER A WRITE CHECK ERROR 



005544 
005546 



SCAWC: MOV SAVWC .FM'DP8*4 

ADD #5'6..FMTDPB*6 

INC FMTDP8*10 

CLR SOFSW 

RTS PC 



SET UP WC FOR REMAINING SECTORS 
SET UP BA FOR REMAINING SECTORS 
ADVANCE TO NEXT SECTOR IN TBL 
RESET RETRY COUNTER 
RETURN TO COMPLETE TRK FORMAT 



.-THIS ROUTINE SETS UP THE CYLINDER ADRS. FORMAT BIT. TRACK AND 
.-SECTOR ADRS IN MEMORY WITH THE STARTING CYL - TRK INFORMATION 



001 360 


SETHDR: 


MOV 


MAXSEC.RI 


•SET UP SECTOR COUNT 


000001 001214 




MOV 


#1,$TESTN 


GARBAGE CODE FOR APT 


046234 




MOV 


*8UFP.R0 


SET UP HEADER POINTER IN RO 


001330 




MOV 


MINCYL,R2 


PUT STARTING CYL * IN R2 


140000 




BIS 


#MF!UF.R2 


SET MFC AND USR GOOD BITS (DEC STANDARD K4) 


001 334 




MOV 


MINTRK.R3 


•PUT STARTING TRK * IN R3 






SUAB 


R3 


■JUSTIFY TRACK ADRS 


001 356 




TST 


SEC30 


•SEE IF 30 OR 32 SECTOR MODE 






BEO 


IS 


BR IF 30 SECTOR MODE 


010000 




BIS 


#FMT.R2 


•SET THE 32 SECTOR FORMAT BIT 




1$: 


MOV 


R2, 'RO)* 


•WRITE IN HEADER AREA OF CORE THE CYL ADRS 






MOV 


R3. 


•WRITE IN HEADER AREA OF CORE THE TRK ADRS 


001000 




ADD 


*512..R0 


•SET UP FOR NEXT HEADER 






INC 


R3 


•UPDATE SECTOR ADRS FOR NEXT HEADER 



.lPKWT Su6ft0oTlN£S 
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SfO 006? 



1 

'17 
119 

'?2 



1<?3 

125 
126 
127 
128 
129 
^50 
131 
132 
^53 
134 
135 
136 
137 
138 
'39 
1 40 



U1 
K2 
'43 
'44 
U5 
146 
U7 



148 
149 
150 
151 
152 
153 
154 
155 

156 
157 
158 
159 
160 
161 



017200 
017202 
017204 



017206 
017206 
017210 
01^212 
017214 
017216 
017222 
017226 
017232 
01 7234 
01724'^ 
01724^ 
CI 7246 
017250 
017252 
017256 
0' 7262 
01 7266 
017272 
01 7274 
017276 
017300 
017302 
017304 
017306 
017310 
017312 



017320 
01 7320 
CI 7322 
01 7324 
017330 
017354 
01 7336 
017342 
017346 
017350 
017552 
017354 
017556 



017360 
017566 



005301 
002371 
000207 



010046 
010146 
010246 
010346 
013701 
012700 
013703 
000303 
005737 
001402 
162710 
005220 
010320 
012702 
013720 
013720 
162702 
001371 
005203 
005301 
002355 
012603 
012602 
01 260' 
012600 
005237 



017316 000207 



010046 
010146 
013701 
012700 
005720 
062710 
062700 
005301 
002372 
012601 
012600 
000207 



012737 
005037 



DEC 
BGE 
RTS 



R1 
PC 



MAINTAIN COUNT OF SECTORS 

8R IF NOT LAST SECTOR 

EXIT - HEADERS ARE LOADED INTO (OAT 



001 360 
046234 
001334 

001376 

000002 



001000 
001336 
001340 
000004 



001214 



001360 
046234 

000400 
001004 



;^HIS ROUTINE UPDATES THE CYLINDER ADRS OF THE HEADER WORDS 
.AND FILLS DATA BUFFER FIELD IN CORE 

UPDCVL: 



1$: 



2$: 



3$: 





RO -(SP) 


•PlJ^H RO ON ^TATK 




PI _(sp) 

R2'-(SP) i 


'PllSH R1 DM STATIC 


MOV 


•PUSH RP ON STAfK 


MOV 


R3^-(SP) 


•PUSH R3 on SUflc 


MOV 


MAXSFC R1 


SFT UP SFfTOR fOlJMT 


MOV 


#BUFP RO 


SFT UP HFADFR POINTFR !N RO 


MOV 


MINTRK R3 


•GET STARTING TRACK 


SWAB 


R3 


•STARTING SECTOR - 0 


TST 


WRAP 


■SEEKING fROn HI TO LO CYLINDERS 


BEO 


2$ 


•8R IF NO 


sue 


*2, (RO) 


'DECREMENT CYLINDER NUMBER 


INC 


(RO) ♦ 


■INCREMENT FOR NEXT CYLINDER 


MOV 


R3- (RO) ♦ 


■WRITE TRACK AND SECTOR HEADER 


MOV 


*512..R2 


•DATA FIELD LENGTH 


MOV 


PATA, (R0)+ 


•FILL BUFFER 


MOV 


PAT8,(R0)+ 


;FILL BUFFER 


sue 


#4.R2 


;END OF DATA FIELD ? 


BNE 


3$ 


•NO 


INC 


R3 


.•INCREMENT TO NEXT SECTOR 


DEC 


R1 


; COUNT SECTORS 


BGE 


1$ 


;8R IF NOT LAST SECTOR 


MOV 


(SP)+,R3 


;;POP STACK. INTO R3 


MOV 


(SP)+.R2 


;;POP STACK INTO R2 


MOV 


(SP)+.R1 


;;POP STACK INTO R1 


MOV 


(SP)+.RO 


;;POP STACK INTO RO 


INC 


STESTN 


.•INCREMENT TST NUMBER FOR EACH CYLINDER 
.■GARBADE CODE FOR APT 


RTS 


PC 


.•EXIT 



.•THIS ROUTINE UPDATES THE TRACK ADRS OF THE HEADER WORDS IN CORE 



UPDTRK: 



1$: 



MOV 
MOV 
MOV 
MOV 
TST 
ADD 
ADD 
DEC 
BGE 
MOV 
MOV 
RTS 



RO.-(SP) 

R1.-(S») 

MAXSEC.R1 

*euFP.RO 

(RO)* 

*400. (RO) 

*516.,R0 

R1 

1$ 

(SP)+.R1 
(SP)+.RO 
PC 



;PLSH RO ON STACK 

;PUSH R1 ON STACK 

SE' UP SECTOR COUNT 

SET UP HEADER POINTER IN RO 

POINT HEADER POINTER TO TRK - SEf ADP: 

INDEX TRK ADRS 

SET UP FOR NEXT HEADER 

COUNT SECTORS 

BR IF NOT LAST SECTOR 

;POP STACK INTO R1 

;POP STACK INTO RO 

EXIT 



:ROUTINE TO CHECK FOR KWll-L OR KW11-P CLOCKS 



017436 
000006 



000004 ST.CLK; 



MOV #STCLK1 .a#ERRVEC ;SET UP VECTOR FOR P CLK 
CLR »(rERRVEr + 2 .-NEW PSW 



^.RT SJBfitOUTINES 



•WCWO V(K.00 
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162 
'6? 
164 
165 
166 
167 
168 
^69 
170 
VI 
'72 

V? 

'75 
176 
177 
178 
V9 
ISO 
181 
'•^^ 
'83 
184 
185 
186 
187 
188 
189 
190 
191 
192 
19i 
194 
195 
196 
'97 
'90 
199 
200 
201 
202 
203 
204 
205 
206 
207 
2C8 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 



017372 
017376 
01 7402 
017410 
017414 
017420 
01 7426 
017454 
017436 
01 7442 
017450 
017454 
01 7460 
017466 
017472 
017476 
01 7504 
017506 
017512 
CI 7520 



017522 
017526 
017532 
017534 
017540 
017544 
017546 
017550 
017552 
017554 
017560 
017562 
01 7566 
017570 
01 7574 
017576 
01 7602 
01 7604 
017610 
017614 



017616 
017622 
01 7626 



017630 
01 7634 
0^7656 



005777 


161 702 






T C T 

TST 


9»LKCSR 


■CHECK FOR KW11-P 


013746 


CO 1304 






MOV 


>LPVEC,-(SP) , 


•VECTOR ADDRESS 


012776 


017616 


000000 




•10V 


*CLOCK,a(SP) 


•SET UP KWn-P VECTOR 


062716 


000002 






ADi; 


*<:, (SP) 


•POINT TO PSW 


012756 


000300 






MOV 




•PSW - PR I 6 


012777 


^ 77777 

\7777 f 


1 X 1 ^ c / 




MOV 


*- 1 ,S»LKCSd 


;LOAD COUNTER BUFFER 


012777 


0001 55 


16 icA*» 




MOV 


*1 3d .SILKCSR 


;ScT CLK - CNT UP 


000426 








BR 


i TCLKj 




062706 


000004 

A1 7CAi 

0 1 o06 




STCLKl : 


ADD 


*4,SP 


;RESTORE THE STACK PnjNTER 


012'^37 


000004 




MOV 


*S 1 CLN<:.a#cRRVcC 


.•CHANGE ERROR VECTOR 




'61634 






T C T 

TST 


»»LKS 


,LOOK FOR KWll-L 


01 3/^46 


AA1 1i T 

001 31 c 






nOv 


»LL Vfc C SPJ 


;KWm-L VcCrOR ADDRESS 


A1 077^ 

Oi<:/' /^6 


A 1 7^ 1 X 

01 '616 


AAAAAA 
UUUUUU 




nUV 




;5ti UP KWll-L vcCTUR 


AX 071 X 

06£f '6 


AAAAAT 






ADD 


, ( 5PJ 


; INCREMENT VECTOR ADDRESS 


A1 TV 7^ 


AAAZAA 
0UU3UU 






urn t 

MOV 




;PSW - PRl 6 


m 5777 








nUV 


i»1AA rvti 




000402 








BR 


STCLK3 




062706 


000004 




STCLK2: 


ADD 


#4.SP 


.•RESTORE THE STACK POINTER 


012737 


000006 


000004 


STCLK3: 


MOV 


#6.a#ERRVEC 


.•RESTORE THE ERROR VECTOR 


000207 








RTS 


PC 





104401 
105737 
001000 
004737 
104401 
104411 
012600 
105710 
001414 
105760 
001006 
122710 
001412 
122710 
001403 
104401 
000754 
104401 
000137 
000207 



012746 
004737 
000002 



005737 
001375 
000137 



.•THIS CODE PRINT THE ABORT MESSAGE AND LET O.P. RESTART 



037572 

oor 50 

024414 
042033 



000001 

000131 

000116 

037174 

001205 
016534 



000020 
034476 



030400 
007054 



RESTRT: 


TYPE 


.MESG2 


TYPE 'IMPROPER MFG INFORMATION" 




TST8 


SAUTOB 


•RUN UNDER APT ? 




BNE 


1$ 


•8R IF SO 


1$: 


JSR 


PC.STKINT 


•ENABLE TO READ 

•TYPE 'INITIALIZE BAD SECTOR FILE (L) N 




TYPE 


.MSINIT 




RDLIN 




■READ THE ENTRY 




MOV 


(SP;*.RO 


■SAVE ADDRESS OF RESPONSE 




TST9 


(RO) 


■WAS RESPONSE A CARRIAGE RETURN (DEFAULT 




BEO 


3$ 


■8R IF YES 




TST8 


KRO) 


'WAS IT TERMINATED WITH CARRIAGE RETURN 




BNE 


2$ 

*'Y,(RO) 


■8R IF NO 




CMP8 


•WAS IT A 'Y' RESPONSE ? 




BEQ 


4S 


'BR IF YES 




CM08 


#'N.(RO) 


■WAS IT A 'N' RESPONSE ? 




BEO 


3$ 


■8R IF YES 


2S: 


TYPE 


,8ADENT 


•TYPE BAD ENTRY MESSAGE 




BR 


1$ 


•TRY AGAIN 


3$: 


TYPE 


.SCRLF 


•CR-LF 




JMP 


REJEND 


•JUMP TO REJECT END 


45: 


RTS 


PC 


•EXIT 



.-THIS CODE SERVICES A CLOCK INTERRUPT EVERY 16MS 
CLOCK 



MOV 
JSR 
RTI 



#16. .-(SP) 
PC.RMTMR 



PUT MILLISECONDS ON THE STACK 
GO REPORT TIME 
RETURN AND CONTINUE 



.■ROUTINE TO INTERCEPT 'CONTROL C 



C.ENTR: TST 
BNE 
JMP 



TRNSWT 
C.ENTR 
TST1 



ALL ACTIVITY STOPPED ? 
8R IF NOT 

START PROGRAM AT BEGINNING 



.•ROUTINE TO INTERCEPT 'CONTROL 0' TYPED WHILE PROGRAM IS FORMATTING 



fa. 



22% 
22t» 

??5 
22b 
227 
22% 
229 
^30 
?51 
212 
23? 
2V, 
235 
2% 
237 
238 
259 
240 

242 

243 

24A 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

2^2 

275 

274 

275 



MACKO ^04. CO 
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017642 
017646 
01 7652 
01 7656 
017660 
017664 
017666 
017672 
017674 
017700 
0177(X 

017710 
C17714 
017716 
017722 
017730 
017732 

017732 
017756 
01 77AA 
017750 
017754 
01 7760 
017764 
017770 
017774 
020000 
020002 
020006 
020012 
020016 
020022 
020030 



020032 
020034 
020056 
020042 
020044 
020046 
OP0050 
020052 
020054 



1 1 7746 
042716 
021627 
001014 
104A01 
005726 
105737 
001404 
005037 
005037 
000137 

022627 
001406 
005777 
012777 
000002 



005037 
012737 
104A01 
104401 
013746 
004737 
U04737 
104401 
104401 
005046 
113716 
004737 
004737 
104401 
012737 
000002 



010346 
011403 
012337 
001435 
104401 
000000 
012502 
012305 
011546 



161314 
1 77600 
000003 

025621 

001150 

001400 
001 402 
016534 

000017 

161240 
000100 



^ 77776 
017630 
037506 
036615 
005552 
027100 
026670 
036621 
036615 

005551 
027100 
026670 
001205 
017642 



020046 



THE DISK PACK. THE CURRENT DISK ADDRESS IS "rP£D TO THf TERMINAL 
DURING THIS ROUTINE IN THE FOLLOWING FORflAT. 



PRESENT ADDRESS IS: CXXX TXXX 



O.ENTR: 



1$: 



1612^0 



001372 



3S: 

TyPADR: 



wove 

BIG 

CMP 

BNE 

TVPE 

TST 

TST8 

BEQ 

CLR 

CLR 

-MP 

CMP 
BEO 

TST 
MOV 

rt: 



aSTK8.-(SP) 
#*C177,(SP) 
(SP).#3 
2$ 

.tCNTLC 
(SP)* 
$AUTOB 
1$ 

DEVMP 

DEVMP+2 

REJEND 

(SP)+,#17 
3$ 

aSTKB 

#ioo.a$T<s 



WHERE 'C IS THE CYLINDER ADDRESS 

AND 'T* IS THE TRACK ADDRESS. (IN DFCIMAl 

READ FROM TTr BUFFER 
STRIP PARITY 
CONTROL-C ? 
BR IF NO 

TYPE A CONTROL-C CO 
RESTORE STACK 
RUNNING IN AUTO MODE ? 
BR IF NO 

CLEAR DEVICE MAPS 

JUMP TO CONTROL C REJECT 

CONTROL-0 ? 
YES 

CLEAR DONE BIT 
ENABLE TTY INTERRUPT 



000060 



CLR 


PS 


SET PROCESSOR TO PRIORITY 0 


MOV 


*C.ENTR.CNTLC 


CHANGE 'CONTROL C* RETURN ADDRESS 

'PRESENT ADDRESS IS: ' 

•C" 


TYPE 


.ADDRIS 


TYPE 


.c 


MOV 


FMTDPB*12.-(SP) 


.-PUT THE CYLINDER ADDRESS ON THE STACr 


JSR 


PC.$SB2D 


CONVERT IT TO DECIMAL 


JSR 


PCSSUPRL 
.8LNKS2 


•TYPE DECIMAL NLfBER, LEFT JUSMFY 


TYPE 


TYPE 2 SPACES 
•T' 


TYPE 


.T 


CLR 


-(SP) 


CLEAR THE STACK 


MOVB 


FMTDPO+11 .(SP) . 


•PUT THE TRACK ADDRESS ON THE STACK 


JSR 


PC.$SB2D 


■CONVERT IT TO DECIMAL 


JSR 


PC.SSUPRL 


TYPE DECIMAL NLfBER. LEFT JUSTIFY 


TYPE 


.SCRLF 


•CR-LF 


MOV 


*O.ENTR,S*TKVEC 


•RESTORE ENTRANCE FOR CONTROL -0 


RT] 




RETURN 



PARAMETER ENTRY ROUTINE 
CALL 

JSR R4, PARENT 

TABLE 



PARENT: MOV 
MOV 

1$: MOV 
BEQ 
TYPE 

2$: .WORD 
MOV 
MOV 
MOV 



R3,-(SP) 
(R4),R3 
(R5)+.2l 
7$ 



(R3)*.R2 
fR3)*.R5 
(R5).-(SP) 



.-THE CALLING SEO 
.•PARAMETERS TABLE 



SAVE R3 

PARAMETER TABLE ADDRESS 
ADDRESS OF PARAMETER NAME 
BR IF AT END OF TABLE 
TYPE THE PARAMETER NAME 
ADDRESS OF PARAMETER NAME 
MAXIMUT' PARAMETER VALUE 
ADDRESS OF PARAMETER 
CURRENT VALUE OF PARAMETER 



'EXT 



?7S 



j-JbROuTIMES 
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.'31 

2'62 

?fe? 

284 

?85 

?86 

c'67 

?88 

289 

290 

?91 

292 

?93 

294 

?95 

?96 

297 

?98 

299 

300 

301 

302 

303 

304 

30S 

506 

'07 

309 

5o9 

310 

311 

312 

513 

314 

^15 

5^6 

517 

518 

519 

520 

321 

522 

323 

324 

32*5 

326 



020056 
020060 
020064 
020066 
020070 
020074 
020076 
020100 
020102 
020104 
020106 
020110 
020112 
020114 
020120 
020124 
020126 
020130 

C201 32 
0201 34 
020136 
020140 
020144 



020146 
020152 
020156 
020160 
020164 
020166 
020174 
0201 76 
020204 
020206 
C20212 
020216 
020220 
020222 
020226 
020234 
020242 
020244 



104405 
104401 
104411 
012601 
004557 
020036 
020136 
020114 
020110 
020114 
020126 
010215 
000751 
104401 
162703 
000744 
010215 
000402 

011403 
000740 
012603 
062704 
000204 



C3660/ 
025172 



057174 
000006 



000002 





I tPDS 




T TPt 'HE CURRENT VALUE Of Hf f'ARAr*f '» 
/ 




T woe 


, SLASH , 




HDL IN 




KcAD THt Kc VoOAnD 








INPUT A5CJJ STRING ADDRESS 
CHECK THE DIGIT(S) 




1 C D 


R^.CK.DIG , 




1 c 

19 




CARRIAGE RE TLWN ONLt ENiERED 




ym 




PERIOD ONL" ENTERED 




4> 




r 1 1 c r* A 1 r A im i t 

ILLEGAL INPUT 




5» 




TERMINATED WITH A CARRIAGE RETURN 

. TC DM T Al A T Cr\ IITTU A '* *■ 

TcnMiMATtP WITH A , 




4> 






5» 




• T C DM f Al A T C r\ lltTU A '* '* 


5» : 




R<r , (Ri ; 


•nOVE NEW VALUE TO PARAMETER LOCA'jON 




aH 


1 * 


,nrj MODC DADAMCTCDC 

or 1 nUHt rAHAnticRS 
OAD cNIHr 


4 J : 


T VDC 

1 jrt 


.yADcN 1 




bin 




DcLHcrltNl IMt lAoLt rUINIcN 




aH 




IWY AGAIN 


c < . 

3» . 


"tOV 


Q 0 /DCS 

Hd , (R3 J 


■ All. 11 1 J A 1 1 if 

'NEW VALUE 




BR 




■ C W T T 
' tXI ' 


• At. • 


nUV 


* 1 AoLt , R5 


>DCI rtAft TLJC O AD AMC T C D T AO I C Ar\r\OrCf* 

JRCLUAD [Mt rAH/Vnt'tR lAoLc APDWt S ^ 




Mnu 

nUV 








BR 


1$ 


;TRr AGAIN 


7i: 


MOV 


(SP)*.R3 


.■RESTORE R3 




ADD 


*2.R4 ; ADJUST 


THE RETURN ADDRESS 




RTS 


R4 


.•RETURN FROM THE R4 



THIS ROUTINE lOADS THE BAD SECTOR INTO 'USTAS* TABLE 
CALL 

JSR "c. RECORD 
ALL REGISTER USED ARE DESTORJED 



o^025o 

020252 



012701 


003434 




RKCRD 


: MOV 


*USTAB*8..R1 


•TABLE ENTRY IN Rl 


022711 


177777 




1$: 


CMP 


#-1.{Rl) 


•AN OPENING IN THE TABLE 


001421 








BEQ 


3$ 


■BR IF IT IS 


023711 


005552 






CMP 


FMTDP8*12.(R1) ;( 


I/LINDER NUMBER MATCHES 


001010 








8NE 


2$ 


BR IF NOT 


123761 


005551 


000003 




CMP8 


FMTDPB*11 .3«'R1) 


•TRK NUMBER MATCHES ? 


001004 








BNE 


2$ 


•8R IF NOT 


123761 


005550 


000002 




CMPB 


FMTDPB*10,2(R1) . 


•SECTOR NUMBER MATCHES ? 


001416 








BEQ 


4$ 


•BR TO EXIT, IF ^HE SPOT HAS RE'ORrL 


062701 


000004 




2$: 


ADD 


#4.R1 


■INCREMENT 4 BYTES 


022701 


004424 






CMP 


*|JSTAB*512..R1 


•END OF TASLE ? 


101355 








BHI 


1$ 


•BR IF NOT 


000411 








BR 


5$ 


•THROW AWAY THE PACK 


015711 


005552 




3f: 


MOV 


FMTDPB*12.(R1) 


•LOAD THE CYLINDER # 


113761 


005551 


000003 




MOVB 


FMTDPB*11 .3(R1) . 


•LOAD THE TRK NUMBER 


113761 


001344 


000002 




MOVB 


BADSEC.2(R1) 


•LOAD THE SECTOR NUMBER 


000207 






4$: 


RTS 


pr 


•EXIT 


000137 


016522 




5$: 


jMP 


REJCT6 


■JUMP TO REJECT TOO MANY BAD ' '^ 








;THJS 


ROUTINE 


WILL SORT A BAD SECTOR TABLE IN ASCENDING ORDER 








;CAlL 


JSR 


R5.SORT2 












TASLF 


♦3. 


■ADDRESS OF TASLE ^0 BE SURTt; 


011501 






S0RI2: 


MOv 


(R5).R1 


•TOP POINTER 


0127C2 


000175 






MOV 


#125. .R2 


TOTA. 126 ELFMfMS 



- ^' -JBftOuTlNES 



MA K 



»7 
7 



C2C*?56 
OP0260 
0?0?6<. 
020270 
020272 
020276 
020500 
020302 
020510 
020312 
0205U 
020322 
539 020524 
5A0 020326 
020330 
020354 
020 5A0 
020346 
020352 
020356 
020362 
020364 

349 020366 

350 020370 
020372 
020376 
020400 



lie' 

<^3 
M4 

337 
338 



341 
342 
543 
544 

';45 

346 
547 

348 



551 
552 
?55 
354 
355 020402 
556 020406 
557 



010105 
062703 
022711 
001444 
021161 
101015 
105426 
126161 
101006 
105421 
'26161 
101001 
0004 K 
011146 
016146 
016111 
016^61 
012661 
012661 
062701 
02010? 
001342 
005302 
001404 
162703 
011501 
000754 

062705 
000205 



C0C764 
\77777 

000004 



000005 000007 
000002 000006 



000002 
000004 

000006 000002 
000006 
000004 
000004 



000004 



00000? 



G 6 
'8:5'.»:Sfc PAof 



R1,R5 ;LOlATE THE BQTTOK PClNTffii 

#500.. R5 ;254-4) X 2 

#-l.(Rl) ;THE TA8LE IS EMPTr ? 

4$ .-QUICK EXIT 

(ftl).4(R1) .-COMPARE THE CYLINDER NUM8f f< 

2S .-SWITCH ELEMENTS 

3S .-INCREMENT POINTER 

3(R1).7(R1) .-COMPARE THE TRACK Nl.»«FR 

2% .-SWITCH ELEMENTS 

5$ .-INCREMENT POINTER 

2(R1).6(R1) .-COMPARE THE SECTOR NUMBtR 

2$ .-SWITCH ELEMENTS 

5$ .-INCREMENT POINTER 

(RI).-(SP) .-SAVE THE CYLINDER NUMBER 

2(R1).-(SP) .-SAVE THE TRK/SEC NUMBERS 

4(R1).(R1) .-SWITCH THE N*4 BLOCK TO N BLOCK 

6(R1).2(R1) .-SWITCH THE N+6 BLOCK TO N»2 BLOCK 

(SP)*.6(R11 .-LOAD THE N*6 BLOCK 

(SP)*,4{R1) .-LOAD THE N+4 BLOCK 

#4.R1 .-UPDATE THE TOP POINTER 

R1.R5 .-REACH THE BOTTOM ? 

^% ;8R IF NO 

R2 .-DONE ENTIRE SORT ? 

4$ ;8R IF YES 

.-ADJUST THE BOTTOM POINTER 

(P5).R1 .-RESET THE TOP POINTER 

1$ ;D0 NEXT SORT 

*2.R5 .-ADJUST RETURN ADDRESS 

R5 .EXIT 
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8 

9 



■•A 

•A 

:7 



18 

19 
^0 
21 

21 



?5 
?6 

2B 
29 
50 
31 
32 
33 
34 
35 
36 
37 

38 
39 
40 
41 
42 
43 
44 
45 
•.6 
^7 

48 
45 



020410 
020414 
020420 
020424 
020426 
020430 
020434 
020440 
C20444 
020450 
020454 
020462 
020470 
020476 
020504 
020510 
020514 
020520 
020524 
020530 

020534 
020540 
020544 
020550 
020552 
020560 
020564 
0205^0 
020574 
C20576 

020600 
020602 
020604 
020606 
020612 
020616 
020622 
020626 
020632 
020636 
020642 
020646 
020652 
020654 



012700 
012701 
012720 
005301 
001 374 
013746 
01 3746 
015746 
CI 3746 
015746 
012737 
012757 
012737 
015737 
004737 
012637 
012637 
012637 
012637 
012637 

012701 
012702 
012703 
011112 
016162 
005062 
005062 
062702 
005305 
001 364 

005046 
005046 
005046 
012746 
012746 
012746 
012746 
012746 
012746 
012746 
012746 
005737 
100402 
0127'6 



046234 
020100 
177777 



001214 
001330 
001554 
0C1560 
001556 
000057 
T 77777 
001466 
001 524 
017120 
001356 
001 360 
001334 
001 330 
001214 

001414 
046240 
000040 

000002 
000004 
000006 
001004 



0014^4 
046240 
000005 
002420 
047244 
OOOOO^i 
005424 
060310 
001356 

C61314 



,S8TTL SFTUP BAD SECTOR Buf^ER 

THIS ROUTINE SETS UP THE BUFFER TO RE-UWITE THE ^AST TRACr OF 
CYLINDER 822. (BAD SECTOR FILE) 



SECTORS 0. 2. 4. 6. 8. 

SECTORS 1. 3. 5. 7. 9. 

SECTORS 10, 12. :4, 16. ..30. 

SECTORS 11. 13. 13. 17. ..31. 



SPT8SF: MOV 
MOV 



1J: 



001 360 
001356 
001330 
001334 



000002 



21: 



MOV 
DEC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
ADD 
DEC 
BNE 

CLR 
CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 

bm: 

MOV 



*8UFP.R0 

#<258.*32.>.R1 

*-1.(R0)* 

R1 

1$ 

$TESTN.-(SP) 

MJNCYL,-(SP) 

MINTRK.-(SP) 

MAXSEC.-(SP) 

SEC30.-(SP) 

*51 . .MAXSEC 

*-1.SEC30 

#822. .MINCYL 

LSTRK.MINTRK 

PC.SETHDR 

(SP)+.SEC30 

(SP)+,MAXSEC 

(SP)*,MINTRK 

(SP)*. MINCYL 

(SP)+,$TESTN 

*MFG16.R1 

*8UFP+4.R2 

*32..R5 

(Ri;.(R2) 

2(P1).2(R2) 

4(R2) 

6(R2) 

*516..R2 

R5 

2$ 



-(SP) 
-(SP) 
-(SP) 

*MFG16.-(SP) 

*8UFP+4.-(SP) 

*5.-(SP) 

*MFG18.-(SP) 

*8UFP+4+516.. 

#5.-(SP) 

#USrAB.-(SP) 

j(r8UFP+4«-<S16. 

SEC 50 

3$ 

#eUFP+4*<'516. 



16 BIT M^G 
18 BIT MFG 

16 BIT USER 
18 BIT USER 



BUFFER ADDRESS 

TOTAL WORD COUNT 

SET ALL LOCATIONS TO -1 

DONE YET ? 

BR IF NO 

.•PUSH STESTN ON STACK 

PUSH MINCYL ON STACK 

PUSH MINTRK ON STACK 

PUSH MAXSEC ON STACK 

PUSH SEC30 ON STACK 
SET MAX 51 SECTORS 
ALWAYS IN 16 BIT MODE 
LOAD LAST CYLINDER 
LAST TRACK 

SET HEADER FIELD IN THE BUFFER 

;POP STACK INTO SEC30 

;P0P STACK INTO MAXSEC 

;P0P STACK INTO MINTRK 

;POP STACK INTO MINCYL 

;P0'' STACK INTO STESTN 

LOAD FIRST 4 WORDS TO EVERY SECTOR 
BUFFER LOCAHON ♦ 4 
TOTAL 32 SECTORS 

STORE 1ST OCTAL WORD (MSB OF S/N) 
STORE 2ND OCTAL WORD (LS8 OF S/N) 
STORE 3RD WORD ALL O'S 
STORE 4TH WORD ALL O'S 
ADVANCE TO NEXT SECTOR 
DECREMENT ONE SECTOR COUNT 
BR IF NO 

LOAD TABLES INTO APPROPIATE SECTOPS 
DUMMY PAIRS FOR TERMINTORS 



TABLE ADDRESS 
BUFFER ADDRESS 
NUMBER OF SECTORS TO LOAD 
TABLE ADDRESS 
-(SP) .-BUFFER ADDRESS 

NUMBER OF SECTORS TO LOAD 
TABLE ADDRESS 

>.-(SP) .-BUFFER ADDRESS 

IS IT 16 BIT FORMAT MODE ? 
BR IF YES 
•ir.>.(SP) ;MFG 18 BP BUFFER ADDRF 



.-APJ<-8' "6: ^V.-ifc PAGE 



6 



52 
5? 
^4 
55 
56 
57 
58 
59 
<)0 
o1 

6^ 
6A 
65 
66 
67 
68 
69 
^0 

n 

72 
'1 
74 
75 
76 
77 
78 

'9 
8G 
8 

8? 
85 
84 
81 
86 
87 
88 
89 
90 
91 
92 
95 
94 
95 
96 
97 
98 
99 
TOO 
101 
10^ 
10? 
'04 
Iu5 



l?0664 
020670 
020674 
020700 
020702 
020706 
020712 
020714 
020720 
020722 
020724 
020726 
020730 
02073A 
020736 
020740 
020742 
C20744 
020746 
020750 
020752 



020754 
020762 
02076A 
020772 
020774 

021000 
021006 
021014 
C21022 
021030 
021036 
0210A4 
021052 
021060 
021066 
021074 
021102 
021110 
021112 
021120 
021122 
021126 
021130 



012701 
012702 
005737 

100402 

012702 
012703 
010105 
012704 
012^22 
005304 
001375 
010501 
062702 
005303 
001 366 
012603 
012602 
012601 
010105 
001 361 
000207 



013737 
001006 
122737 
103402 
000137 

113737 
113737 
053737 
113737 
012737 
112737 
012737 
113737 
113737 
013737 
052737 
023727 
00100* 
123737 
00U06 
005737 
100*03 
0*2^37 



0044 3C 
0613^4 
001 5S6 

060510 
000013 

000400 



001010 



005552 

000001 

016A42 

005551 
001344 
00U10 
001222 
177776 
000163 
046224 
001 344 
005551 
005552 
010000 
005552 

005551 

001356 

010000 



MOV #USSAV.R1 

MOV *8UFP»4»<516. 

TST SEC30 

BMI 4$ 

MOV *8UFP*4*<516. 

4$: MOV #11.. R3 

MOV R1.R5 

5S: MOV #256., R4 

tl: MOV (R1)+,(R2)+ 

DEC R4 

BNE 6S 

MOV R5.R1 

ADD #516. +4. R2 

DEC R3 

BNE 5S 

MOV (SP)+.R3 

MOV (SP)+.R2 

MOV (SF)+.R1 

MOV R1.H5 

BNE 5S 

RTS PC 



• n 

•10 



NUMBER Of SECTORS TO LOAD 

TABLE ADDRESS IN Rl 
>.R2 .-BUFFER ADDRESS IN R2 
IS IT 16 BIT FORMAT MODE ? 
BR IF YES 

>.R2 .-BUFFER ADDRESS FOR 18 BP MODE 
SECTOR COUNT IN R3 
TEMPORARY STORAGE 

WORD COUNT = DATA FIELD OF ONE SECTOR 
LOAD TABLE INTO SECTOR DATA FIELD 
ALL DONE ? 
BR IF NOT 

RELOAD THE TABLE ADDRESS 
SKIP ONE SECTOR 
DECREMENT ONE SECTOR COUNT 
BR IF NOT DONE 

NEXT NUMBER OF SECTORS TO LOAD 

NEXT BUFFER ADDRESS 

NEXT TABLE ADDRESS 

IS IT DUMMY TERMINTOR ? 

BR IF NO 

EXIT 



THIS ROUTINE WILL SET OR RESET BIT15 AND BIT14 OF THE FIRST HEADER 
WORD. IF THE HEADER IS FLAGGED AS A 'MFG* BAD SECTOR. BIT15(MF BH; 
WILL BE RESET(O) AND BIT14(UF BIT) WILL BE SET(I). IF THE HEADER IS 
BEING FLAGGED AS A 'USR' BAD SECTOR. BIT15(MF BIT) WILL BE SET(1) 
AND BIT14(UF BIT) WILL BE RESET(O). 
CALL 

PC. RESET 



JSR 

046224 RESET: MOV FMTDP8*12.RBUF 

BNE 1$ 

005551 CMP8 #1.FMTDPB+11 

BLO 1$ 

JMP REJCT2 

046227 'S: MOVB FMTDPB+1 1 .RBUF +3 

046226 MOVB BADSEC .RBUF +2 

046224 BJS HDRBIT.RBUF 

005630 MOVB DRIVE. FMTURT 

005634 MOV #-2.FMTWRT+4 

005632 MOVB #WRTHD.FMTWRT+2 

005636 MOV #R8UF .FMTWRT+6 

005640 MOVB BADSEC.FMTWRT+10 

005641 MOVB FMTDPB+1 1 .FMTWRT 

005642 MOV FMTDPB*-12,FMTWRT 
046224 BIS #FMT,RBUF 
001466 CMP FMTDPB*-12.#822. 

BNE 2$ 

001324 CMP3 FMTDPB+ll .LSTRK 

BEQ 3$ 

21: TST SEC30 

BMI 3$ 

046224 BJC #FMT.RBUF 



GET CYLlr lR ADDRESS 

BR IF CYL 0 

IS TH' CYL 0. TRK 0 OR 1 ? 

BR IF NO 

OTHERWISE. ILLEGAL BAD SECTORS 

.-TRACK ADDRESS 
SECTOR ADDRESS 
SET MFG BIT. RESET USR BIT 
SETUP THE DP8 FOR OPERATION 
WORD COUNT =2 

WRITE HEAD AND DATA COMMAND 

BUFFER ADDRESS 

.-SECTOR ADDRESS 
+ 11 .-TRACK ADDRESS 
■^12 .-CYLIND«=R ADDRESS 

ASSUME 16 BIT MODE 

IS IT LAST CYLINDER ? 

BR IF NO 

IS IT LAST TRACK (8SF ) ? 

BR IF YES 

IN 16 BIT MODE ? 

BR IF IT IS 

RESET THE FMT BP 



i'wP BAD SECTOR Buffer 



107 

'10 
'11 



021156 

021 U6 
02"" 52 

02*156 



OO<.037 
005630 
000774 
005737 
001775 
000240 
000207 



0312K 



005646 



5$: 
4S: 



J 6 

<..APS(-8' "8:59:56 PAGE 22-2 



jSft R0.RMO5 

f*irtfRT 

BR 3t 

TST fMTwRT»16 

BEQ AS 

NOP 

RTS PC 



CALL THE DRIVER 

OPB ADDRESS 

BR If QUEUE FAILS 

DONE ? 

8R IF NOT 

IGNORE ANV ERRORS 

EXIT 



7 

e. 



MACRO VW.OO 
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THE RCH.'TINE INSERT: 

INSERT A BAD SECTOR ADDRESS INTO ONE OF THE »VG16. MfG^B. USIAB AND 

USSAV TABLES 

CALL 

JSR R5. INSERT 
TA8LE*8. 



i 

n 

13 
K 
15 
16 
17 

18 



02116? 
021166 
021170 
021174 
021176 
021202 
021204 
021212 
021214 
021222 

19 021224 

20 021226 

21 021230 

22 021234 

23 021236 
021242 
021250 

26 021256 

27 021262 

28 021264 

29 021270 



24 
25 



010446 
012746 
011504 
022714 
001420 
023714 
001010 
123764 
001004 
123764 
001415 
005316 
001413 
062704 
000755 
013714 
1 1 3764 
1 1 3764 
062706 
012604 
062705 
000205 







INSERT: 


10V 


R4,-(SP) ; 
#126. .-(SP) 
(R5),R4 


SAVE THE R4 


000176 




MOV 


ENTRIES or THE TABlE 






MOV 


TABLE ADDRESS ♦ 8 BYTES 


-\77777 




'%'. 


CMP 
BEO 


#-1.(R4) 
3t 


AN OPEN ENTRY ? 
8R IF SO 


001 362 






CMP 


DS.CVL.(R4) 


CHECK IF THE BAD SECTOR HAS 






BNE 


2$ 


8R IF NOT 


001 364 


000003 




CMP8 


DS.TRK.3(R4) 


•CYL AND TRK MATCH ? 






BNE 


2$ 


•8R IF NOT 


001 344 


000002 




CMP8 


eADSEC.2(R4) 


•CYL .TRK AND SEC MATCH ? 




BEO 


4$ 


•8R IF SO 






2$: 


DEC 
BEO 


(SP) 
4t 


•DECREMENT THE ENTRY COUNT 
;8R IF EXHAUST 


000004 






ADD 


*4.R4 


;L0CATE THE NEXT ENTRY 






BR 


1$ 


;8R BACK 


001 362 




n: 


MOV 


DS.CYL.(R4) 


;LOAD INTO TABLE 


001 564 


000003 




M0V8 


DS.TRK.3(R4) 


;LOAD THE TRACK NUMBER 


001344 
000002 


000002 




M0V8 


BADSEC,2(R4) 


;LOAD THE SECTOR NUMBER 




4$: 


ADD 


#2.SP 


.•CLEAR UP THE STACK 






MOV 


(SP)*.R4 


.■RESTORE R4 


000002 






ADD 


#2.R5 


.-ASJUST THE RETURN ADDRESS 






RTS 


R5 


.•EXIT 



RECORDfD 



r 

J 

t 

7 
8 
9 

10 

13 
U 

IS 
16 

18 

19 

20 

21 

22 

23 

24 

25 

26 

2/^ 

28 

29 

50 

31 

52 

53 

3A 

55 

56 

37 

58 

39 

40 

<.1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



021272 
021276 
021500 
021504 

021306 
021312 
021516 
021522 

021524 
021 330 
021552 
021336 
C21340 
021342 
021 346 

021550 
021554 
021360 
021364 

021366 
021372 
021574 
021400 
021402 
021 404 
021410 
021412 



005757 
001405 
104401 
000207 

104401 
104401 
0045""' 
005 7u2 

005 37 
100404 
004537 
001424 
000766 
004537 
001424 

104401 
104401 
004537 
005720 

005737 
100404 
004537 
002430 
000766 
004537 
002430 
000207 



001520 
042255 



040564 
001205 
022702 



001362 
021160 

020250 



040642 
001205 
022702 



001362 
021160 

020250 
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.S8TTL UTILITr FUNCTION ROUTINES 

.-ROUTINE TO ENTER 'MFC DEFINED BAD SECTORS IN THE 16 81 1 TABLE AND 
;THE 18 BIT TABLE 



FUNCT1 

1$: 
2$: 



3$: 



4$; 



5$; 



TST 


MODE 


BEQ 


1$ 


TYPE 


.NOUPDT 


RTS 


PC 


TYPE 


,MESG5 


TYPE 


.SCRLF 


JSR 


R5.MANTER 


TA8LE2 




TST 


DS. CYL 


BMI 


3S 


JSR 


R5. INSERT 


MFG16*8 




BR 


2$ 


JSR 


R5 ,S0RT2 


MFG16+8 




TYPE 


,MESG6 


TYPE 


.SCRLF 


JSR 


R5 .MANTER 


T AOI C 7 




TST 


DS.CYL 


BMJ 


5$ 


JSR 


R5, INSERT 


MFG18+8 




BR 


'4$ 


JSR 


R5.SORT2 


MFG18+8 




RTS 


'pc 



IS IT 'FORMAT' MODE ? 
8R IF YES 

TYPE 'NO UPDATE OF FRF IN VERIFY MODE' 



TYPE 'ENTER MFG 16 BIT BAD SECTOR ADDRESS' 
CR-LF 

ENTER THE VALUE FROM THE KEYBOARD 



;WAS A VALUE ENTERED ? 
;8H IF NO 

.•INSERT BAD SECTOR INTO THE 'MFGI6' TABLE 
.•NEXT ENTRY 

;SORT THE TABLE WHEN DONE WITH INPUTS 



TYPE 'ENTER MFG 18 BIT BAD SECTOR ADDRESS' 
CR-LF 

INPUT VALUES FROM THE KEYBOARD 



.•UPDATED VALUES ? 
.•BR IF NOT 

; INSERT BAD SECTOR INTO THE •MFG18' TABLE 
;NEXT ENTHY 

.•SORT THE TABLE WHEN DONE WITH INPUTS 
;EXIT 



021414 


005737 


001320 




FUNCT2: 


TST 


MODE 


L21420 


001403 








BEQ 


1$ 


02142? 


104401 


042255 






TYPE 


.NOUPDT 


021426 


000207 








RTS 


PC 


021430 


012737 


003434 


021546 


1$: 


MOV 


#USTAB+8..4$ 


021456 


012737 


U05434 


021556 




MOV 


*USTA3+8..6$ 


021444 


012737 


004440 


021610 




MOV 


#USSAV+8.,8$ 


021 '.52 


012737 


004440 


021620 




MOV 


*USSAV+8. ,10$ 


021460 


005737 


001356 






TST 


SEC30 


021464 


100414 








BMI 


2$ 


021466 


012737 


003434 


021610 




MOV 


*USTAB+8..8$ 


021474 


012737 


003434 


021620 




MOV 


/^USTAB+8. .10$ 


021502 


012737 


004440 


021546 




nov 


*USSAV*8..4$ 


021510 


012757 


004440 


021556 




MOV 


#USSAV*8.,6$ 


021516 


104401 


040720 




2$: 


TYPE 


.MlS67 



.•ROUTINE TO ENTER 'USR' DEFINED BAD SECTORS IN THE 16 BIT TABLE OR 
;THE 18 BIT TABLE 

IS IT 'FORMAT' MODE ? 
BR IF YES 

TYPE 'NO UPDATE OF FILE IN VERIFY MODE' 



;SET UP 'USR' TABLES FOR 16 BIT MODE 



IS IT 18 BIT MODE ? 
BR IS NO 

SET UP 'USR' TABLES FOR 18 BIT MODE 



;TYPE 'ENTER USR 16 BIT BAD SECTOR ADDRESS' 



ir bO FORMATTER 
r» ruNCTlC>i ROUTINtS 



n 6 
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SfO 007/ 



S8 
59 
6C' 
61 
62 
6? 
64 
6S 
66 
67 
68 
69 
70 

n 

72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
91 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



021522 
021526 
021532 

021534 
021540 

021542 
021546 
021550 
021552 
021556 

0?^ 560 
021564 
021570 
021574 

021576 
021602 
021604 
021610 
021612 
021614 
021620 
021622 



021624 
021630 
021634 
021640 
021642 
021646 
021652 

021656 
021662 
021666 
021672 
021674 



021676 
021 702 
021706 
021712 
021714 
021716 
021722 
021726 
021 732 
021734 
021 740 



104401 
004537 

005702 

005757 
100404 
004537 
000000 
000766 
0O<.537 
000000 

104401 
104401 
004537 
005720 

005737 
100404 
004537 
000000 
000766 
004537 
000000 
000207 



104401 
004737 
104401 
010146 
012701 
104401 
004737 

104401 
012701 
004737 
012601 
000207 



104401 
004737 
104401 
010146 
010246 
012701 
012702 
005737 
100404 
012702 
012701 



001205 
C22702 



001362 
021160 

0202';0 



040776 
001205 
022702 



001 362 
021160 

020250 



001205 
022622 
001205 

001424 
041054 
022512 

041140 
002430 
022512 



001205 
022622 
001205 



003434 
004440 
001356 

003434 
004440 



;CR-Lf 

.•ENTER BAD StaOR FROM THE HEYSOARD 



UPDATED INPUT VALUE ? 
8R If NO 

INSERT THE BAD SECTOR INTO TABLE 
TABLE ADDRESS 
NEXT ENTRY 

SORT THE 'USR' 16 BIT TABLE 
TABLE ADDRESS 

TYPE 'ENTER USR 18 BIT BAD SECTOR ADDRESS' 
CR-LF 

ENTER BAD SECTOR FORM KEYBOARD 



UPDATED INPUT VALUE ? 
BR IF NOT 

INSERT THE BAD SECTOR INTO TABLE 

BR TO ENTER NEXT SECTOR 
SORT THE TABLE 
■ABLE ADDRESS 

EXIT FORM THE TA8CAL CALLING 

.•THIS ROUTINE WILL TYPE ""HE CONTENTS OF THE 'MFC' BAD SECTOR FILES 
;FOR 16 BIT MODE AND 18 Bl! MODt 





TYPE 


.SCRLF 


3$: 


JSR 


RS.MANTER 




TABLE2 






TST 


DS.CYL 




BMI 


5$ 




JSR 


R5. INSERT 


4S: 


.WORD 


0 




BR 


3$ 


5$: 


JSR 


R5.S0RT2 


6$: 


.WORD 


0 




TYPE 


.MESG8 




TYPE 


.SCRLF 


7$: 


JSR 


R5,MANTER 




TABLE 3 






TST 


DS.CYL 




BMI 


9$ 




JSR 


R5. INSERT 


8$: 


.WORD 


0 




BR 


7$ 


9$: 


JSR 


R5.S0RT2 


10$: 


.WORD 


0 




PTS 


PC 



FUNCT3: TYPE , SCRLF 

JSR PC,TYPAC< 

TYPE .SCRLF 

MOV RI.-(SP) 

MOV *MFG16+8..R1 

TYPE .MESG9 

JSR PC.TYLIST 

TYPE .MESG10 

MOV *MFG18>8.,R1 

JSR PC.TYLIST 

MOV (SP)+,R1 

RTS PC 



CR-LF 

TYPE PACK SERIAL NUMBER 

CR-LF 

SAVE R1 

ADDRESS OF FIRST BAD SECTOR ENTRY IN TABLE 
TYPE 'CONTENTS OF 16 BIT MFG BAD SECTOR FILE' 
TYPE BAD SECTOR LIST IN DECIMAL 

TYPE 'CONTENTS OF 18 BIT MFG BAD SECTOR FILE' 
ADDRESS OF FIRST BAD SECTOR ENTRY IN TABI E 
TYPE BAD SECTOR LIST IN DECIMAL 
RESTORE THE R1 

EXIT FROM THE CALLING OF TABCAL 



.•THIS ROUTINE WILL TYPE THE CONTENTS OF THE 'USR' BAD SECTOR FILES 
.•FOR 16 BIT MODE AND 18 BIT MODE 



f-UNCT4: TYPE 
JSR 
TYPE 
MOV 
MOV 
MOV 
MOV 
TST 
BMI 
MOV 
MOV 



.SCRLF 

PC.TYPACK 

.SCRLF 

R1,-(SP) 

R2.-(Sr) 

*USTAB*8. ,R1 

*USSAV+8..R2 

SEC30 

1$ 

*USTA8+8..R2 
/fUSSAV+8.,R1 



CR-LF 

TYPE PACK SERIAL NUMBER 
CR-LF 
SAVE R1 
SAVE R2 

SET UP 'USR' TABLES FOR 16 BIT MODE 

IS IT 16 BIT MODE ? 
BR IF YES 

SET UP 'USR' TABLES FOR 18 BIT MODE 



JR"1.bO RM05/3/? FORMATTER 
TILITV FLWCTION ROUTINES 



r6 

117 

118 

119 

120 

121 

122 

123 

12A 

125 

126 

127 

128 

129 

150 

151 

^52 

155 

15A 

155 

156 

157 

158 

159 

UO 

U1 

K2 

U5 

KA 

K5 

1^6 

K7 

U8 

K9 

150 

^51 

152 

155 

15A 

155 

156 

157 

158 

159 

160 

161 

162 

165 

16A 

165 

166 

167 

168 

169 

1 '0 

• .'1 



021 7AA 
021750 

021 75A 
021 760 
021 762 
021766 
021 770 
021772 



021 77A 
022000 
022002 
022006 

022010 
02201A 
C22016 
022020 
02202A 
022050 
02205A 
0220A0 
0220AA 
0220A6 

022050 
02205A 
022060 
02206A 
022070 
02207A 
022076 
022100 
022102 
0221 OA 
022110 



022112 
022116 
022120 
0221 2A 

022126 
022152 
0221 5A 
022156 
022^^2 
022U6 
022152 
022156 
022162 
C22 16A 



10A401 
004737 

10AA01 
010201 
00A757 
01?602 
012601 
000207 



005757 
00K05 
10A401 
000207 

10AA01 
010K6 
0102A6 
005057 
005057 
012701 
012702 
012721 
005302 
001 57A 



04122A 
C22512 

041510 

022512 



005757 


001 520 


001403 




104401 


042514 


000207 




104401 


042145 


010146 




010246 




005057 


001420 


005057 


001422 


All 


0014<^tl 


012702 


000574 


012721 


\77777 


005502 




001 574 




005057 


002424 


005057 


"002426 


012701 


002450 


01270? 


000574 


012721 


■[77777 


005502 




001574 




012602 




012601 




104401 


041502 


000207 





001320 
042514 

042100 



003450 
005452 
005454 
000574 
y77777 



inAfRO V04.00 



1$: 



N 6 
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TYPE ,MESG11 ;TYP5 'CONTENTS OF 16 BIT USR BAD SECTOR FILE* 

JSR PC.TYLIST ;TYPE BAD SECTOR LIST IN DECIMAL 

TYPE .MESG12 .-TYPE 'CONTENTS OF 18 BIT uSR BAD SfCTOR FllE' 

MOV R2.R1 ;GET ADDRESS TO R1 

JSR PC.TYLIST ;TYPE BAD SECTOR LIST IN DECIMAL 

MOV (SP)*,R2 .-RESTORE R2 

MOV (SP)*,R1 .-RESTORE R1 

RTS PC .-EXIT FROM THE CALLING OF TABCAl 

.-THIS ROUTINE IS USED TO INITIALIZE THE 'MFG' BAD SECTOR FIlE (16 AND 18 BIT) 



bfcO 0078 



FUNCT5: 



1$: 



2$: 



3$: 



TST 


MODE 


BEQ 


IS 


TYPE 


.NOINIT 


RTS 


PC 


TYPE 


.INITMF 


MOV 


R1 .-(SP) 


MOV 


R2.-(SP) 


CLR 


MFG16+4. 


CLR 


MFG16+6. 


MOV 


#r'IF616*o. .Rl 


MOV 


#252.. R2 


MOV 


#-l.(R1)+ 


DEC 


R2 


BNE 


2$ 


CLR 


MFG18+4. 


CLR 


MFG18+6. 


MOV 


*MF618*8..R1 


MOV 


*252..R2 


MOV 


*-1 .(R1)+ 


DEC 


R2 


BNE 


5$ 


MOV 


(SP)*.R2 


>10V 


(SP)*.R1 


TYPE 


.MESG14 


RTS 


PC 



IS IT 'FORMAT' MODE ? 
BR IF YES 

TYPE 'NO INITIALIZATION IN VERIFY MODE' 



TYPE 'INITIALIZING MFG BAD SECTOR FILES' 
SAVE Rl 
SAVE R2 

CLEAR 5RD WORD (ALL O'S) 

CLEAR 4Th WORD (ALL O'S) 

ADDRESS OF FIRST BAD SECTOR ENTRY 

NUMBER OF WORDS LEFT 

RESET REST OF FILE TO -1 

DONE YET ? 

BR IF NO 

CLEAR 5RD WORD (ALL O'S) 

CLEAR 4TH WORD (ALL O'S) 

ADDRESS OF FIRST BAD SECTOR ENTRY 

NUMBER OF WORDS LEFT 

RESET REST OF FILE TO -1 

DONE YET ? 

BR IF NO 

RESTORE R2 

RESTORE Rl 

TYPE 'DONE 1' 

EXIT FROM THE TABCAL CALLING 



.-THIS ROUTINE IS USED TO INITIALIZE THE 'USR' BAD SECTOR FILE (16 AND 18 BIT) 



FUNCT6: TST 
BEQ 
TYPE 
RTS 



1$: 



2$: 



TYPE 

MOV 

MOV 

CLR 

CLR 

MOV 

MOV 

MOV 

DEC 

BNE 



MODE 
1$ 

.NOINIT 
PC 

.INITUS 

RI.-(SP) 

R2.-(SP) 

USTA8+4. 

USTAB+6. 

tfUSTAB+S. 

#252.. R2 

#-l.(R1)* 

R2 



IS IT 'FORMAT' MODE ? 
8R IF YES 

TYPE 'NO INITIALIZATION 



IN VERIFY MODE* 



.Rl 



TYPE 'INITIALIZING USR BAD SECTOR FILES' 
SAVE Rl 
SAVE R2 

CLEAR 5RD WORD (ALL O'S) 

CLEAR 4TH WORD (ALL O'S) 

ADDRESS OF FIRIT BAD SECTOR ENTRY 

NUMBER OF WORDS . EFT 

RESET REST OF F ' E TO -1 

DONE YET 

BR IF NO 



"S 
V6 

178 

179 

^82 

'b5 

186 
'S7 



022166 
022172 
022176 
022202 
022206 
022212 
0222H 
022216 
022220 
Q22222 
022226 



B 7 
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005037 
00503' 
012701 
012702 
012721 
005302 
001374 
012602 
012601 
^04401 
000207 









USSAV»4. 


■Clear 5rd word (All O'S) 


004A36 






USSAV»6. 


Clear 4rM w(y)D <all O'S) 


004440 






#uSSAV*8 Rl 


-ADDRESS OF fIRST BAD SECTOR ENTftv 


000374 




nov 


»252..fi2 


•NUnSER OF WORDS LEM 


1 77777 


3S: 


nov 


<r-1.(R1)* 


•RESET REST Of fiLE TO 






DEC 


R2 


•DONE -.FT 7 






BNE 


3$ 


;BR IF NO 






nov 


(SP)*.R2 


; RE STORE R2 






nov 


(S'-')».R1 


^RESTORE R1 
;TYPE 'DONE ." 


04150? 




tvpj: 


.MESG14 
PC 






RTS 


;EXIT FORn IHE TA8CAL CALLING 



210 
21' 
212 
215 
214 

215 022350 

216 022354 

217 022360 
218 

219 022362 

220 022 5o6 

221 022570 



104401 0415''3 
004537 022702 
005736 



005737 
100442 
010446 



001362 



.•THIS ROUTINE IS USED TO PRINT A SECTOR OF THE lAST TRACK (BAD SECTOR FRfJ 
;CVL=822-. (R,«105-TRK=18. OR RM02/3-TRK-4) 



188 


022230 


104401 


041374 


FUNCT7: 


TYPE 


.MES&I3 


TYPE 'PRINT A SECTOR OF LAST TRACK (OCTAL)' 
TYPE 'ENTER SECTOR (DECIMAL): * 


•89 


022234 


104401 


041450 


1$: 


TYPE 


.MSGI 3A 


190 


022240 


104411 






RDLIN 




READ THE SECTOR NUMBER 


191 


C22242 


012601 






MOV 


(SP)*.R1 ! 


ADDRESS OF READ-IN BUFFER 


192 


022244 


012702 


000037 




nov 


*31..R2 .-UPPER LIMIT OF INPUT 




022250 


004537 


023172 




JSR 


R5. etc. DIG 


CHECK THE DIGIT(S) 




022254 


022542 






6S 




CARRIAGE RETURN ONLY ENTERED 




022256 


022334 

02-334 






5S 




•PERIOD ONLY ENTERED 




022260 






5$ 




•ILLEGAL INPUT 




022262 


022270 






2$ 




TERMINATED WITH A CARRIAGE RETUPN 
TERMINATED WITH A "." 




022264 


022334 






5$ 






022266 


022334 






5$ 




TERMINATED WITH A 


193 


022270 


006302 




2$: 


ASL 


R2 


•FOUND THE WORD INDEX 


194 


022272 


016201 


006064 




MOV 


AnR^8L(R2).R1 


-ADDRESS Of THE BUFFER 


19S 


022276 


012702 


000402 




MOV 


*258..R2 


;WC FOR WHOLE SECTOR INCLUDING HEADER 


196 


022302 


10440' 


001205 


5$: 


TYPE 


.SCRLF 


■CR-LF 


197 


022306 


012705 


000C10 




MOV 


*8..R5 


•8 WORDS ON A LINE 


198 


022312 


012146 




4S: 


MOV 


(RD*,-(SP) 


; CONTENTS OF THE BUFFER 


199 


022114 


104402 






TYPOC 




•TYPE OCTAL WORD 


200 


022F16 


104401 


056621 




TYPE 


,8lNKS2 


;TYPE 2 SPACES 


201 


022322 


005302 






DEC 


R2 


: DECREMENT WORD CTR 


202 


022324 


001406 






BEO 


6S 


•BR IF FINISH 


203 


022326 


005305 






DEC 


R5 


•START ANOTHER LINE ? 


204 


022330 


001370 






BNE 


4S 


;8R IF NOT 


205 


022332 


000763 






BR 


3$ 


•8R IF SO 


206 


C22334 


104401 


037174 


5t: 


TYPE 


.8ADENT 


•TYPE BAD ENTRY 


207 
208 


022340 


000735 






BR 


1$ 


■TRY AGAIN 


022542 


104401 


001205 


6$: 


TYPE 


.SCRLF 


; CR-LF 


209 


022346 


000207 






RTS 


PC 


•EXIT FROM TABCAL CALLING 



ROUTINE TO ENTER 'MFG* DEFINED BAD SECTORS IN THE 16 BIT TABLE AND 
THE 18 BIT TABLE. THE SECTOR ADDRESS IS ENTERED AS A BYTE LOCATION 
fROM INDEX ON THE DISK 



FUNCT8; TYPE 
IS: JSR 

TABLE4 



.MESG15 
R5.MANTER 



TST DS.CYL 

BMI 6S 

MOV R4.-(SP) 



;TYPE 'ENTER MFG BAD SECTOR ADRS 'DECIMAL)' 
.•ENTER THE VALUE FROM KEYBOARD 



WAS ADDRESS UPDATED 
BR IF NO 
SAVE R4 



I CZRMLBO RM05/3/2 FOaMAIIER MACRO V04.00"4-APR-81 18:39:56 PAGE 

i UIIL I If FUNCTION ROUTINES- .1'^ " - ' . . 



222 02?3?2- 01 37A6 001 344," ; 
. 223 022376 005004 ■ ^ ^ ^ . 
' 224,022400 023764 001344^ 006264 2$: 

225 022406 101402 ■ , • 

226 022410 005724 - . ^' - . 
^ 227 022412 000772.^ 



228 022414 006204 

' 229 022416 010437 001344 

230 022422 004537 021160 

231 022426 001424 /. 

232 022430 012637 ^ 001344 

233 022434 005004 ' > ' ^ 

234 022436 023764 001344 ,006364 4$: 
, 235 022444 101403 

236 022446 062704' 000002 ' : - ' - - 

237 022452 000771,- 

. 238 022454 006204 ' r ' , „■ 5$: 

239 022456 010437- 001344 ' ,i : 

240 022462 004537 ' 021160'. * 

241 022466 002430 .". , ^ 
- 242 022470 012604 - I 's- vr--- - ' ^ 

243 022472 000730 > ^v's.r,. x a 



HOV BADSE(..-(SP) ' ;SAVE 'BADSEC FOR 18 BIT MODE" 

CLR , R4 .-TABLE INDEX STARTS FROM 0 ~ 

CMP . BADSEC.BrTE16(R4) ;IS 16 BIT LOCATION FOUND ? 

BLQS 3$ ;BR If YES 

TST' (R4)* - ; TRY NEXT SECTOR 

BR - 2$ .'LOOPING 

3$: " ASR R4 .-SECTOR ADDRESS 

MOV * R4.BADSEC • ;SAVE 16 BIT SECTOR ADDRESS 

JSR R5. INSERT ' > .-INSERT BAD SECTOR INTO •MFG16' TABLE 
"MFG16+8. : ' ■ 

-:M0V . (SP)*.BADSEC ;6ET LOCATION OF SECTOR FOR 18 BIT MODE 

CLR , R4 .-TABLE .INDEX STARTS FROM 0 

CMP BADSEC.BYT£18(R4) ;IS 18 BIT LOCATION FOUND ? 



. BLOS 
; ADD 
BR 

^ ASR ■■ 
•JMOV-, 
•:JSR 



5S 

4$ 

R4 

'R4 .BADSEC 
R5. INSERT 



. 244 022474 004537.^^020250 " . ,V > ; 6$: ,/ 

245 022500 001 424 . ^ -'w - ^X! I . -/ t - -J 



MFG18*8. ^ 
.,rMOV.,, ' (sp)*;r4- 

BR IS-- 
: /JSR ^- R5.S0RT2' 
*:mFG16*8.V' 



;BR IF YES 
.-TRY NEXT SECTOR IF NOT FOUND 
;LOOPIN BACK 
.•SECTOR ADDRESS - 
.-SAVE 18 BIT SECTOR ADDRESS 
.•INSERT BAD SECTOR INTO 'MFGIS' TABLE 

'.•RESTORE' R4 ' ' 
.-NEXT ENTRY ^ 
.-S0RT.'MFG16; TABLE 




SEO C08D 



2 
3 

5 
6 
7 

8 

9 

10 
11 
12 

13 022512 010H6 

K 022514 106A01 

15 022520 005711 

16 022522 100A32 

17 022524 011146 

18 022526 004737 

19 022532 004737 

20 022536 104401 

21 022542 105046 

22 022544 116116 

23 022550 004737 

24 022554 004737 

25 022560 104401 

26 022564 105046 

27 022566 116116 

28 022572 004737 

29 022576 004737 

30 022602 062701 

31 022606 000742 
52 

53 022610 020126 

'4 022612 001002 

55 022614 104401 

36 022620 000207 
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001205 



027100 
026670 
036602 

000003 
027100 
026670 
035602 

000002 
027100 
026670 
000004 



042206 



THIS ROUTINE IS USED TO rPE THE BAD SECTOR FILE ENTRv IN DfCI»UL. 

UPOfJ RETURN. R1 WILL BE POINTING TO THE NEXT BAD SECTOR (CVLlNOCR) 
ENTRY. 
CALL 

MOV #NUMADR.R1 ;ADJRESS OF FIRST TABLE tNTRY 

JSR PC.TYLIST .-CALL TYPE LIST ROUTINE 

THE LIST WILL BE TYPED IN THE FOLLOWING FORMAT: 



TYLIST: 
1$: 



CONTENTS 0' 'FILENAME' 
CYL.TRK.SEC 



2$: 



3t: 



MOV 

TYPE 

TST 

BMI 

MOV 

JSR 

JSR 

TYPE 

CLR8 

M0V8 

JSR 

JSR 

TYPE 

CLR8 

M0V8 

JSR 

JSR 

ADD 

BR 

CMP 
BNE 
TYPE 
RTS 



RI.-(SP) 
.SCRLF 
{R1 ) 
2$ 

(R1),-(SP) 
PC,$SB2D 
PC.SSUPRL 
.SCOMMA 

-(SP) 

3(R1).(SP) 
PC.SS82D 
PC.SSUPRL 
.SCOMMA 

-(SP) 

2(R1) .(SP) 

PC.$S82D 

PC.SSUPRL 

*4,R1 

IS 

RI.(SP)* 
3S 

.NOEMR 
PC 



THE BAD SECTOR FILE (DECinAL) 



SAVE ADDRESS OF FIRST TABLE EN^Rr 
CR-LF 

IS IT TERMINATOR " 
BR IF yES 

PUT CYLINDER NUMBER ON STACK 

CONVERT IT TO DECIMAL 

TYPE DECIMAL NUMBER, LEFT JUSTIFY 

TYPE 

Clear stack location 
PUT track number on stack 
convert it to decimal 

TYPE decimal NUMBER. LEFT JUSTIFY 
TYPE 

clear stack location 

PUT SECTOR Nli«ER ON STACK 

convert it TO decimal 

TYPE DECIMAL NUMBER, LEFT JUSTIFY 
ADJUST R1 TO NEXT BAD SECTOR ENTRY 
NEXT ENTRY 

WERE THERE ANY ENTRIES ? 
8J? IF YES 

TYPE NO ENTRIES *' 
RETURN 



3 
i. 

5 
6 
7 
8 
9 
^0 

^2 
13 
14 
15 
16 
17 

18 
'9 

20 
21 
2? 



'FORMATTER 
^rt/«Ea IN OCTAL 
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7 
26 



022622 
022626 
C22632 
022634 
022640 
0226A4 
022650 
022654 
022660 
022662 
022664 
C22670 
022674 
022700 



104401 
013746 
001414 
004737 
004737 
013746 
004737 
004537 
000005 
000406 
01 3746 
004737 
004 73^ 
000207 



037473 
003426 

02733C 
026670 
003424 
02"'330 
026770 



003424 
027350 
026670 



,S8TTL TVPE PACK SERIAL MUMBER 

ROUTINE TO TVPE THE PACK SERIAL 
CALL: 

PC.TVPACK 



OR 



JSR 
JSR 



TVPACK: TVPE 
TYPCK: MOV 
BEQ 
JSR 
JSR 
MOV 
JSR 
JSR 
.WORD 
BR 

1$: MOV 
JSR 

JSR 

21: RTS 



PC. TYPCK 

.PACKSN 

US7A8*2.-(SP) 

1$ 

PC.$SB20 

"C.SSUPRL 

USTA8,-{SP) 

PC.$SB20 

R5.FILLZ 

5 

2S 

USTA8.-(SP) 
PC.$SB20 
PC.SSUPRL 
PC 



IN OCTAL 
NUMBER IN OCTAL 
CALL ROUTINE 

CALL ROUTINE (WITH NO H£Ar[R ME <^ 

TYPE 'PACK S/N:' 
GET HI NUMBER (MSB) 

BR IF ZERO 

CONVERT TO OCTAL NUMBER 
AND TYPE IT LEFT JUSTIFIED 
GET LOW NUMBER (LS8) 
CONVERT TO OCTAL NLMBER 
TYPE WITH PRECEEDING ZEROS 
5 DIGITS 

GET LOW NUMBER (LS8) 
CONVERT TO OCTAL NUMBER 
AND TYPE IT LEFT JUSTIFIED 
RE TURN 



A*E«i BAD SfCTCB ROuTINf 



*»AZHO V04.00 4-APR-81 '8:39:S*) PAGE 



7 

?7 



7 

8 

9 

1? 
'5 
U 
15 

1 7 



J1 
?3 



.^4 

27 
?8 

50 



.S8TTL ENTER BAD SECTOR ROUTINE 

.•ROUTINE TO ENTER BAD SECTOR INFORMATION MANUAlLV 
• CALL : 

; ' JSR R5.MANTER ;CALL ROUTINE 

TA8LE .-ADDRESS Of TABLE 









MAIilTCD • 

(•WM 1 1 K I 






■JCC f\jd 


V I UhhO 






nuv 




.t D D 7r\L. 


nil*; n/. 






nuv 




\)cc f\n 


U 1 c'» J' 


np'<7i 




nuv 


vK«i 1 ♦ 


nD571 D 
\}£r.f tc 


UU 1 hUc 






t5c u 


zc 
J* 


n?571/. 
Uccr l*» 








TV PC 




n5P71 A 
Ucc ' "O 


uuuuuu 




2S ■ 




Q 


022720 


012774 


1 77777 


000002 l%\ 


MOV 


*-l .a2(R4) 


022726 


104411 






RDLiN . 












nuv 


^ CP) 4. D1 










ITUV 


(R4)».R2 






np^i 7P 




ICQ 






V/c J*^ jO 






O* 


















jw 






7t 






\JC J\J J\l 






74 






\jCCf JH 










022752 


023030 






7S 




02275A 


010234 




4t: 


MOV 




0PP756 










(R4)*,R2 


n??7ftO 




0?31 7? 




ICR 


^ J t K,^ mV l^J 


\JC C ' u** 


OP 3030 






7* 




nP3030 

\jC j\j j\j 












(137030 
yJC J\J J\J 






7t 




•JCC 1 f c 








7t 


















0P3030 






7$ 




023000 


010234 




5$: 


MOV 


R2.a(R4> 




01 PCD? 






fUj r 


/OA)^ pp 




no^s^7 






ICR 
Jon 




np^nin 








7* 


IV 1 c 








7* 




C230K 


023030 






7$ 




023016 


023024 






6$ 




023020 


023030 






7$ 




023022 


025030 






7$ 




02302A 


010234 




6$: 


MOV 


R2.afR4)» 


023026 


000403 






BR 


8$ 


023030 


104401 


0371 74 


7$: 


TYPE 


.Q.ADFNT 


0250 3A 


000723 






BR 


1$ 


023056 


005725 




8$: 


TST 


(R5)* 


023040 


012604 






MOV 


(SP)*.R4 


025042 


000205 






RTS 


R5 



;PUSH R4 ON STACK 
GET TABLE POINTER 
GET ADDRESS OF MESSAGE 
BR IF NO MESSAGE 

.•ADDRESS OF MESSAGE GOES HERE 
.•INITIALIZE VALUE 

ADDRESS OF FIRST ASCIZ CHARACTER 

UPPER LIMIT OF INPUT 

CHECK THE DIGITCS) 

CARRIAGE RETURN ONLY ENTERED 

PERIOD ONLr ENTERED 

ILLEGAL INPUT 

TERMINATED WITH A CARRIAGE RETURN 
TERMINATED WITH A "." 
TERMINATED WITH A "." 
CYLINDER ADDRESS 

UPPER LIMIT OF INPUT 
CHECK THE D]G1T(S) 
CARRIAGE RETURN ONLY ENTERED 
PERIOD ONLY ENTERED 
ILLEGAL INPUT 

TERMINATED WITH A CARRIAGE RETURN 
TERMINATED WITH A 
TERMINATED WITH A 
TRACK ADDRESS 

UPPER LIMIT OF INPUT 
CHECK THE DIGIT(S) 
CARRIAGE RETURN ONLY ENTERED 
PERIOD ONLY ENTERED 
ILLEGAL INPUT 

TERMINATED WITH A CARRIAGE Rt TURN 

TERMINATED WITH A 

TERMINATED WITH A 

SECTOR OR BYTE ADDRESS 

EXIT 

MESSAGE BAD ENTRY 

ENTER SECTOR ADDRESS AGAIN 

ADJUST RETURN ADDRESS 

;POP STACK INTO R4 

EXIT 



^^•fcS BAT* SEC'Oft 



'OftMAI 'Eft 



G 7 

4-APR-81 18:59:S6 PAGE 28 



2 






3 






i 






c 






O 






7 






6 






a 






1 0 




151157 


1 1 

I T 




I U5*»U' 






151157 


1 7 

1 5 


Uc 3U jO 


1 D1 nnz. 


■• / 
1 •» 




1111 (15 
Mil \JC 


1 C 




\JHci\JC 


1 ^ 




\J\JJ 1 Cj 


" 7 

f 




U JUCv5 


o 












?f) 
c V 






?1 






























CO 










to 




151157 


PQ 


\JC J\Jf O 




?n 




1 51 1 57 


11 

J 1 






7 J 

7C 




1 1 1 1 n5 


7^ 

J J 


n?^i in 










7S 






jO 






77 

7 t 






30 












LCi 

H\J 






H 1 


















LL 






H f 






'♦O 


























vC J ■ C w 




CI 

J 1 


yjcj t cc 


nni^i 7 




0231 ?4 


121 127 


53 


023130 


00U13 


54 


023132 


121127 


S5 


023136 


00U07 


Sft 


023U0 


004537 




023U4 


0C0410 



000060 
000067 

1 m7{^ 



000060 
000071 

000060 



000054 
000056 
023072 



THIS ROUTINE IS USED TQ CHECK IF AN 
ASCII CHARACTER IS A DIGIT BETWEEN 0 AND 
CALL 

4rADR.R1 
R5,CK-0CT 



nov 

jSR 

RETURN! 
RETURN2 



CK.OCT: 



1$: 



CMP8 

BLO 

CMP8 

BHI 

MOVB 

BIC 

TST 

RTS 



(R1).#'0 

1$ 

(R1).#'7 
^$ 

(R1).R2 
**C7.R2 

R5 



ADDRESS OF ASCII CHARACTER 
CHECK THE CHARACTER 
CHARACTER IS NOT BETWEEN 0-7 
CHARACTER IS IN R2 AS A 
OCTAL DIGIT 



LESS THAN ZERO? 
VES 

GREATER THAN SEVEN? 
YES 

GET THE CHARACTER 
STRIP AWAY THE ASCII 
ADJUST FOR RETURN 
RETURN 



THIS ROUTINE IS USED TO CHECK AN ASCII 
AND DETERMINE IF IT IS A DIGIT BETWEEN 
CALL 

MOV #ADR.R1 
JSR R5.CIC.DEC 
RETURNI 
RETURN2 



CHARACTER 
0 AND 9. 



CK.DEC; 



IS: 



CMP8 

BLO 

CMP8 

BHI 

M0V8 

BIC 

TST 

RTS 



(RM.#'0 
1$ 

(R1).#'9 
1$ 

(R1).R2 
#'0,R2 
(R5)* 
R5 



ADDRESS OF ASCII CHARACTER 
CHECK THE CHARACTER 
NOT BETWEEN 0 AND 9 
BETWEEN 0 AND 9 
R2 - DIGIT 



LESS THAN ZERO? 
YES 

GREATER THAN NINE? 
YES 

GET THE CHARACTER 
STRIP AWAY THE ASCII 
ADJUST FOR RETURN 
RETURN 



THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 



DETERMINE WHAT 
CALL 

MOV 

JSR 

RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 



CK.CHR: 



TST8 

8EQ 

CMP8 

BEO 

CMPB 

8EQ 

JSR 

BR 



IT IS. 

XTADR.RI 
R5. CK.CHR 
ADR1 
ADR2 
ADR 3 
ADR4 
ADR 5 
ADR6 



(R1) 
3$ 

(RD.f. 
2% 

fRl).*'. 
IS 

R5. CK.DEC 
4S 



ADDRESS OF ASCII CHARACTER 

CHECK CHARACTER 

UNKNOWN CHARACTER 

CARRIAGE RETURN • (R1)-ADR*1 

COMMA • (R1)=ADR*1 

PERIOD • (R1)-ADR*1 

DIGIT BETWEEN 0 AND 7. 

DIGIT BETWEEN 8 AND 9. 

R2 = DIGIT • (R1)-ADR*1 

"CARRIAGE RETURN"? 
YES 

"COMMA"? 
YES 

"PERIOD"'' 
YES 

•■DIGIT": 
NO 



:-.^.bO hMOS/5/t' FORMATTER 
f\'ER BAD SECTOR ROlMNE 



•lACHO .04.00 4-APR-8" 



H 7 

'8:59:56 PAGE PB-T 



58 0P3K6 

59 023152 

60 0231 W 

61 0231 S6 

62 023160 

63 02316? 
6A 023164 

65 023166 

66 023170 
67 

68 
o9 

70 

71 
72 
73 
74 
75 
76 
77 
78 
79 
80 

81 025172 

82 023174 

83 023176 

84 023200 

85 023202 

86 023204 

87 023206 
023212 
023214 
023216 
023220 
023222 
023224 

88 023226 

89 023232 

90 023234 

91 023236 

92 023240 

93 C23242 
9A 023244 

95 023246 
023252 
023254 
023256 
023260 
023262 
02326A 

96 023266 

97 023270 

98 023272 
^ 023274 

100 023276 

101 023300 
'02 C23302 



004537 025044 

005725 

005725 

005725 

005725 

005725 

005201 

011505 

000205 



IS 
2t 
3t 

4$: 



jSR 
TS' 
TST 
TST 
TST 
TST 
INC 
MOV 
RTS 



RS.CK.OCT 

(R5;* 

(R5)* 
(R5)* 
(R5)* 
(R5)» 
Rl 

(R5).R5 
R5 



OCTAL ? 

DIGIT BETWEEN 8-9 
DIGIT BETWEEN 0-7 
PERIOD 
COMMA 

CARRIAGE RETURN 

MOVE POINTER TO NEXT CHARAfTtiy 

UNKNOWN CHARACTER 

RETURN 



THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 

CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2. 



CALL 



MOV #ADR.R1 

•>10V #NUM.R2 

JSR R5. CK.DIG 

RETURN ADRI 

RETURN ADR2 

RETURN ADR3 

RETURN ADR4 

RETURN ADR5 

RETURN ADR6 



010446 
010346 
010246 
005002 
005003 
005004 

004537 023120 

023306 

023314 

023306 

023310 

023226 

023226 

062705 000004 

006303 

010346 

006303 

006303 

062605 

060203 

004537 023120 

025312 

023276 

023274 

023266 

023232 

023232 

105711 

001010 

005724 

005724 

005724 

020316 

003004 



CK.DIG: 


MOV 


R4.-(SP) 
P3,-(SP) 




MOV 




MOV 


R2.-(SP) 




CLR 


R2 




CLR 


R3 




CLR 


R4 




JSR 


R5.CK.CHR 




6$ 






9$ 






6$ 






7$ 






1$ 






1$ 




1$: 


ADD 


*4.R5 


2$: 


ASL 


R3 




MOV 


R3.-(SP) 




ASL 


R3 




ASL 


R3 




ADD 


(SP)*.R3 




ADD 


R2,R3 




JSR 


R5.CK.CHR 




8S 






5$ 






4$ 






3$ 






2$ 






2$ 




3$: 


TST8 


(Rl) 




B^JE 


8$ 




TST 


(R4) + 


4$: 


TST 


(R4)* 


5$: 


TST 


(R4) + 




CMP 


R3,(SP) 




BGT 


9$ 



ADDRESS OF ASCJZ STRING 

MAX. MAGNITUDE OF INPUT NUMBER 

CHECK DIGITS 

"CR" ONLY ENTERED — R2=0 
"PERIOD" ONLY ENTERED — R2=0 
ILLEGAL CHARACTER OR INPUT TOO 
"CR" — R2 = NUMBER 
"COMMA" — R2 = NUMBER 
■PERIOD" — R2 = NUMBER 



.ARGE — 



SAVE R4 
SAVE R3 
SAVE THE MAX. 
START WITH 0 



SIZE ON THE STACK 



CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 



DIGIT 0-7 
DIGIT 8-9 

STEP RETURN POINTER PAST "CR" & "PERIOD' 

INPUT NUMBER •2 

SAVE *2 

»4 

*8 

(»2)*(*8) - »10 
UPDATE THE INPUT NUMBER 
CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
CARRIAGE RETURN 



DIGIT 0-7 
DIGIT 8-9 
DOES A "CR 
BR IF NOT 
INCREMENT 
INCREMENT 
INCREMENT 
CHECK THE 



FOLLOW THE "PERIOD" 



THE RETURN 
THE RETURN 
THE RETURN- 
MAGNITUDE OF 



THE NUMBER 



BR IF ENTERED NUMBER TOO LARGE 



f\*t«^ BAD SECTOR ROUTI»lf 



'0? 

• 06 
107 
108 

109 

- 1 ' 



023504 
025306 
0?3310 
02331? 
0233U 
023^16 
023320 
025322 
023324 
023526 



000402 
005/25 
005725 
060405 
010302 
005726 
012603 
012604 
011505 
000205 



*4A'Mu V04.00 



6t 
7% 
8S 
9S 



I 7 
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3R 

TSF 

TST 

ADD 

MOV 

TST 

MOV 

MOV 

MOV 

RTS 



8S 

(R5)* 

{R5)* 

R4.R5 

R3.R2 

(SP)» 

{SP)».R3 

(SP)*.R4 

(R5).R5 

R5 



erPASS INCREMENT 

INCREMENT RETURN PAST :NvAi ID Rf Tl*N 
INCREMENT RETURN 
SETUP RETURN POINTER 
ENTERED VALUE 

CLEAN MAX. SIZE Off Of STACK 

RESTORE R3 

RESTORE R4 

;GET RETURN ADDRESS 

; RE TURN 



J 7 
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.SerTL ERROR HANDLER ROUTINE 



fO 008 



025534 
023556 
C253A2 
0253A6 
&2335A 
023362 
023566 
023370 
023374 
025400 
023404 
023410 
023412 
023420 
023426 
02^450 
023434 
023440 
023444 
023452 
025460 
025466 
025470 
023476 
023500 
025504 
C25506 
023514 
023516 
025522 
025550 
025536 
023540 
023546 
023552 
023554 

025560 
025566 
023570 
023576 
C23600 



105037 
104407 
010157 
010557 
015757 
113737 
0^ 5737 
001406 
013746 
•62716 
01 3637 
105237 
001 775 
0-'3777 
052777 

001402 
104401 
005257 
011637 
162737 
117737 
032777 
001060 
122757 
001454 
105737 
001047 
022737 
001445 
013746 
012757 
015757 
000406 
012757 
012716 
000002 
012657 

022757 
001420 
052737 
0014U 
042737 



023756 

001 566 
001370 
005552 
0C5551 
005564 

005564 
000002 
001140 
001117 

001116 
002000 

001200 
001126 
001152 
000002 
155454 
001000 

0001 77 

025756 

M7777 

000004 
025540 
1 ?7766 

1 77777 
025554 

000004 

}77777 

000001 

000001 



001 562 
001564 



155536 
155526 



001132 
001130 
155466 

001130 



02375<, 



023754 
023754 
1 77766 



•THIS 

•SAVE 

•AND 

•THE 

•SW15 

•SW13 

•SW10 

•SW09 

•CALL 



ROUTINE UILL INCREMENT THE ERROR FLAG AND THE ERROR (Ol\T, 



THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR 
GO TO TVPERR ON ERROR 

SWITCH OPTIONS PROVIDED BV THIS ROUTINE ARE • 

-1 HALT ON ERROR 

=1 INHIBIT ERROR TYPEOUTS 

1 BEuL ON ERROR 

=1 LOOP ON ERROR 



Al 



ERROR N 



SERROR: 



1$; 



000004 
023754 

025754 1000$: 



1001$: 
1002$: 



CLR8 

CKSWR 

MOV 

MOV 

MOV 

M0V8 

TST 

BEO 

MOV 

SUB 

MOV 

INC8 

6EQ 

MOV 

BIT 

BEO 

TYPE 

INC 

MOV 

SUB 

M0V8 

BIT 

BNfc 

CMP8 

BEQ 

TST8 

BNE 

CMP 

BEO 

MOV 

MOV 

MOV 

BR 

MOV 

MOV 

RTI 

MOV 

CMP 
BEQ 
BIT 
BEO 
BIC 



;;ERROR-EMT AND N=ERR0R ITEM NUMBER 



IBSAVE 



R1.DDRIVE 
R5.ATTN 

FMTDPB+12.DS.CYL 
FMTDPB*11 ,DS.TRK 
RM.REG+RM8A 
7$ 

RM.REG+RMBA.-(SP) 
*2.(SP) 
a(SP)*.$GDDAT 
$ERFLG 
7$ 

STSTNM.aDISPLAY 
*8IT10.aSWR 
1$ 

,$8ELL 
$ERTTL 
(SP).$ERRPC 
*2,$ERRPC 
a$ERRPC,$ITEM8 
*8iT09.aSWR 
1004$ 

*1 77. SITEMB 
1004$ 
IBSAVE 
1003$ 

*-1.CPSAVE 
1004$ 

ERRVEC.-(SP) 
*1000$.ERRVEC 
1 77766, CPSAVE 
1001$ 

*-1, CPSAVE 
*1001$,(SP) 

(SP)*.ERRVEC 

*-1. CPSAVE 
1004$ 

*8 1 TOO. CPSAVE 
1004$ 

*8I TOO, 177766 



.•CLEAR THE ITEM BYTE SAVE LOCATION 
.•TEST FOR CHANGE IN SOFT-SWR 
DRIVE ADDRESS IF DRIVE ERROR ^.Al L 
ATTENTION REGISTER CONTENTS 

.•CURRENT CYLINDER ADDRESS 

.•REQUESTED TRACK ADDRESS 
NON-ZERO BUFFER ADDRESS ? 
BR IF NO BUFFER ADDRESS 

.•BUFFER ADDRESS 
DECREMENT THE ADDRESS 

GET THE BUFFER WORD WHICH DIDN'T COMPARE 
SET THE ERROR FLAG 
DON'T LET THE FLAG GO TO ZERO 
DISPLAY TEST NUMBER AND ERROR FLAG 
BELL ON ERROR? 
NO - SKIP 
RING BELL 

COUNT THE NUMBER OF ERRORS 

GET ADDRESS OF ERROR INSTRUCTION 

STRIP AND SAVE THE ERROR ITEM CODE 
SEE IF LOOP ON ERROR IS SET 
BRANCH AROUND ROUTINE IF SO 
SEE IF THIS IS THE POWER FAIL CALL 
BRANCH AROUND ROUTINE IF IT IS 

SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
BRANCH IF SO 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SAVE CONTENTS OF ERROR VECTOR 

SETUP 'TRAP' RETURN ADDRESS 

MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

SET CPU ERROR REGISTER TIMEOUT INDICATOR 
SETUP RETURN ADDRESS 

RESTORE CONTENTS OF ERROR VECTOR 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 

BRANCH IF OK 

CLEAR THE BIT FOUND SET 





a fQRMATTEW 


»IACRO V04.00 4-APR-81 


K 

18:39-56 PAGE 


'H hANCh Eft ROUT INC 














1 1 X7X7 


UUi 1 jU 






"Tuvrj 


$ITEM8.IBSAVE 




1 1 

1 \ C'J' 


C00177 


001150 




M0V8 


•177.$ITEMB 












BR 








023756 




1003S: 


CLR8 


I8SAVE 


Uc jO jU 








1004$: 




#8IT13.aSwR 


Uc jO >U 


n75777 

\JjCr ( ( 


020000 


155316 




BIT 




nm PAZ. 








8NE 


20$ 


Uc 50*»U 


nnz. 777 


023760 






J£R 


PC.TyPERR 






001205 






TYPE 


.$CRLF 


50 jy 








20$: 










000001 


001230 




CMP8 


*APTENV.$ENV 




1 UV.'' 








BNE 


2$ 


Uc 500U 


1 1 7777 


001130 


023672 




M0V8 


$ITEMB.21$ 


U c jOOO 


C\CSL7\7 


027522 






JSR 


PC,$ATY4 




nnn 






21$: 


.ariE 


0 


Uc jD' J 


UUU 








.evTE 


0 




nnn777 






22$: 


BR 


22$ 


Uc JO' O 


in'i777 


023756 




2$: 


'STB 


I8SAVE 




UU 1 UU J 








BNE 


3$ 


nP77nA 


nns777 

UU J ' ' ' 


155244 






TST 


aswR 


ri??7in 

\Jcj( 1 u 


1 UUUUc 








BPL 


3$ 


r>p?7i p 

\JCji I c 


nnonnn 
uuuuuu 








HALT 














CKSWR 












3$: 








V\\>777 


001000 


155230 




BIT 


*8no9,aswR 




UU 1 HUc 








BEO 


4$ 


\JCjf CO 




001124 






MOV 


$LPERR,(SP) 


Vrjf JC 


UU3' J' 


001 1 76 




4$: 


TST 


$E SCAPE 




\./U I •♦Uc 








BEO 


5$ 




ni 771A 

U 1 J ' 1 o 


001176 






P10V 


$ESCAPE.<SP) 










b$: 








105737 


023756 






TST8 


I8SAVE 


023750 


001215 








BNE 


7$ 


023752 


000002 








RTI 




02575A 


000000 






CPSAVE : 


.WORD 


0 


023756 


000000 






leSAVf : 


.WORD 


0 



;;MAKE IBSAVt NOl-ZERC fOR DUAL ERROR CAll 
;;SET $IIEM8 TO SPECIAL POWER MR POIMTfR 
.-.-BRANCH OVER IBSAVF CLEARING 

;; CLEAR IBSAVE SO 2ND TIME THROUGH tXlTS 



SKIP TYPEOLT IF SET 

SKIP TYPEOUTS 

60 TO USER ERROR ROUTINE 



RUNNING IN APT MODE 

NO, SKIP APT ERROR REPORT 

SET ITEM NUI««ER AS ERROR NUMBER 

REPORT FATAL ERROR TO APT 



APT ERROR LOOP 

SEE IF IBSAVE IS LOADED 

BRANCH IF NOT - NO HALT ON PWR MON BIT ERROR 

HALT ON ERROR 

SKIP IF CONTINUE 

HALT ON ERROR I 

TEST FOR CHANGE IN SOFT-SWR 

LOOP ON ERROR SWITCH SET? 
BR IF NO 

FUDGE RETURN FOR LOOPING 
CHECK FOR AN ESCAPE ADDRESS 
8R IF NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 

SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 

BRANCH BACK TO CALL ORIGINAL ERROR 

RETURN 

LOCATION TO SAVE CP^ ^ROR REG CONTENTS 
LOCATION TO SAVE Ulci BYTE 



H. FORMAT 



A 

5 



^lACKO VOA.OO 



L 7 
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6 C23760 


1CAA12 




TYPERR; 


SAVREG 




7 023762 


005000 






CLR 


PO 


8 02376A 


113700 


001130 




M0V8 


$JTEM8.R0 


9 023770 


122700 


000177 




CMP8 


#177. RO 


10 02377A 


001006 






BNE 


1$ 


1A 023776 


013737 


001 21 A 02A37A 




MOV 


$TESTN,PFTSTN 


16 02A00A 


012700 


02A23A 




MOV 


/TPFECH.RO 


17 02A010 


000A07 






BR 


3$ 


^8 02A012 


010001 






MOV 


R0.R1 


19 02A01A 


005300 






DEC 


RO 


20 02A016 


006300 






ASL 


RO 


21 02A020 


006300 






ASL 


RO 


22 02A022 


006300 






ASL 


RO 


23 02A02A 


062700 


006A60 


2$: 


ADD 


*$ERRTB.RO 


2A C2A030 


012037 


02A0AA 


3S: 


MOV 


(RO)+.A$ 


25 02A03A 


001 AOA 






BEQ 


5$ 


26 02A036 


10AA01 


001205 




TYPE 


.$CRLF 


27 02A0A2 


10AA01 






TYPE 




28 02A0AA 


000000 




A$: 


.WORD 


0 


29 02A0A6 


012037 


02A062 


5$: 


MOV 


(R0)*.«$ 


30 02A052 


001 AOA 






BEQ 


7$ 


31 02A05A 


10AA01 


001205 




TYPE 


.$CRLF 


32 02A060 


10AA01 






TYPE 




33 02A062 


000000 




6$: 


• WORD 


0 


3A 02A06A 


012001 




7%: 


MOV 


(R0)+.R1 


35 02A066 


001 A60 






BEQ 


17$ 


36 02A070 


005005 






CLR 


R5 


37 02A072 


012000 






MOV 


(RO)+,RO 


38 02A07A 


012002 






MOV 


(R0)*.R2 


39 02A076 


001 A51 






BEQ 


16$ 


AO 02A100 


005105 






COM 


R5 


Ai 02A102 


10AA01 


001205 




TYPE 


.$CRLF 


A2 02A106 


112003 




8$: 


M0V8 


(R0)+.R3 


A3 02A110 


11200A 






M0V8 


(RO)+,RA 


AA 02A112 


00600A 




9$: 


ROR 


RA 


A5 02A11A 


103A05 






BCS 


10$ 


A6 C2A116 


0131A6 






MOV 


a(R1)*,-(SP) 


02A120 


10AA02 






TYPOC 




A 7 02A122 


000A02 






BR 


11$ 


A8 02A12A 






10$: 






02A12A 


G131A6 






MOV 


a(Ri)*,-(SP) 


02A126 


10AA05 






TYPDS 




A9 02A130 


005303 




11%: 


DEC 


R3 


50 02A132 


001 A03 






BEQ 


12$ 


51 02A13A 


10AA01 


036621 




TYPE 


.8LNKS2 


52 02A1A0 


00076A 






BR 


9$ 


53 02A1A2 
5A 02A1AA 


005302 




12$; 


DEC 


R2 


003A31 






BLE 


17$ 


5^ 02AK6 


10AA01 


001205 




TYPE 


.$CRLF 


56 D2A152 


005760 


000002 




TST 


2(R0) 


57 02A156 


001 AOA 






BEQ 


13$ 


58 C2A160 


005105 






COM 


R5 



THIS ROUTINE USES THE "ITEM CONTROL BYTE" ($JTEM8) TO DETERMINE 
WHICH ERROR IS TO BE REPORTED, IT THEN OBTAINS. FROM TmE "tRROR 
TABLE" ($ERRT8). AND REPORTS THE APPROPJATE INFORMATION 
CONCERNING THE ERROR. 

SAVE R0-R5 

CLEAR RO FOR ERROR NUMBER 
ERROR NUMBER 

SEE IF THIS ERROR CALI IS SPECIAL POWER 'AR 
BRANCH IF NOT 
GET TEST NUMBER 

MOVE POWER FAIL ERROR CALL TABLE TO RO 

;AND COPY IT INTO R1 
.-FORM INDEX FOR ERROR TABLE 



FORM ADDRESS 

GET ERROR MESSAGE (EM) POINTER 
BR IF THERE ISN'T ONE 
"CARRIAGE RETURN - LINE FEED 

"EM" POINTER GOES HERE 

PICK UP DATA HEADER (DH) POINTER 

BR IF NONE 

CARRIAGE RETURN-LINE FEED 

•DH" POINTER GOES HERE 

PICKUP DATA TABLE (DT) POINTER 

BR IF NONE 

SET INDENT SWITCH 

DATA FORMAT (DF) POINTER 

NUMBER OF DH'S TO TYPE 

BR IF DH NLWBER IS 0 

NO INDENT 

CARRIAGE RETURN-LINE FEED 
NUMBER OF DATA WORDS TO TYPE 
AND HOW TO TYPE THEM 
OCTAL OR DECIMAL? 
DECIMAL 

.-SAVE a(Rl)* FOR TYPEOUT 

;G0 TYPE— OCTAL ASCII (ALL DIGITS) 



.-SAVE a(Rl)+ FOR TYPEOUT 

;G0 TYPE—DECIMAL ASCII WITH SIGN 

MORE NUMBERS TO TYPE? 

NO 

TYPE 2 SPACES 
LOOP 

MORE DH'S? 
NO 

YES— START A NEW LINE 

ONLY A 'DH' IN THIS REQUEST ? 

BR IF YES - BYPASS THE INDENT 

INDENT? 



CALL 



I'-i'^lBC f<M05/?/2 FORMAT Tt« 
fRROR HANDLER ROUTINE 



59 024162 

60 024164 

61 024170 

62 024174 
65 024176 

64 024200 

65 024202 
^6 024204 
6/ 024210 

68 024*;'; 2 

69 024216 

70 024220 

71 024222 

72 024226 

73 024230 

74 024232 

75 024234 

76 024244 
'7 024326 
76 

79 024360 

80 024370 

81 024372 

82 024373 

83 024374 



001002 
104401 
012037 
104401 
000000 
00571 C 
001003 
062700 
000754 
104401 
GC5705 
001332 
104401 
000727 
104413 
000207 
024244 
120 
124 

024374 
000001 
003 
000 
000000 



C 36621 
024176 



000004 
001205 

056621 



024326 
117 
105 



lACRO ;04.0C 



'3t: 



M 7 
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024360 
127 
125 



001152 '25754 



■4t: 



15S: 



16S: 

17S: 

PFECH: 
PFECH1 : 
PFECH2: 

PFECH3; 
PFECH4: 



PFTSTN: 



6NE 


1 5S 


NO 


TYPE 


8LNKS2 


TYPE 2 SPACES 


MOV 


(R0)*,14$ 


GET NEXT DM 


TYPE 




AND TYPE IT 


.WORD 


0 ! 


■DH POINTER GOES HERE 
•TYPE A 'DT' ? 


TST 


(RO) 


BNE 


15$ 


■BR IF A 'DT* 


ADD 


#4.F<0 


■INCREMENT THE 'Of POINTER 
■SEE IF END OF 'DF* BLOCK 


BR 


12$ 


TYPE 


.$CRLF 


; CARRIAGE RETURN-LINE FEED 


TST 


RS 


; INDENT? 


BNE 


8$ 


;N0 


TYPE 


.8LNKS2 


;TYPE 2 SPACES 


BR 


8$ 


;LOOP 


RESREG 




; RE STORE R0-R5 


RTS 


PC 


.■RETURN 



PFECH1.PFECH2.PFECH3.PFECH4 .-WORDS DEFINING TABLES BELOW 
.ASCIZ 7P0WER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
.ASCIZ 7TESTN0 ERR PC CPUERREG? 
.EVEN 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 



PFTSTN. $ERRPC.CPSAVE.O 
1 

3 
0 
0 



NLOBER OF DATA HEADERS 
NUMBER OF WORDS IN DATA TABLE 
ALL 5 NUMbtRS ARE OCTAL 
CONTAINS TEST NUf-BER FOR PF BIT ERROR 



:?'^ib^ 'H'^O'^/^/d FORMATTER 



HACRJ VOA.OO 



N 7 
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S£0 0091 



.SSFTL TTr INPUT ROUTINE 



0P4376 OCOOOO 
024400 000000 
024402 000000 
024404 

024413 



.ENA8L LS8 
$T»CCNT: .WORD 0 
STKQIN: .WORD 0 
STKQOUT: .WORD 0 
STKQSRT: .8LK8 7 
STKQEND-. 
.EVEN 



NUM8ER OF ITEMS IN OUEUE 
INPUT POINTER 
OUTPUT POINTER 
TTy <EV80ARD QUEUE 









• • 


JSR 


PC. STKINT 








• • 


RETURN 




C24414 


005037 


024376 


STKINT: 


CLR 


STKCNT 


024420 


012737 


024404 


024400 


MOV 


*$TKQSRT.$TKQIN ; 


024426 


013737 


024400 


024402 


MOV 


STKQIN.STKQOUT ; 


024434 


012737 


024464 


000060 


MOV 


*$TKSRV,a*TKVEC ; 


024442 


012737 


000200 


000062 


MOV 


*200.a*TKVEC+2 ; 


024450 


005777 


154506 




TST 


a$TK8 


024454 


012777 


000100 


154476 


MOV 


tfioo.asTif.s 


024462 


000207 






RTS 


PC 



•TK INITIALIZE ROUTINE 

•THIS ROUTINE WILL INITIALIZE THE TTY KEV80ARD INPUT QU^Uf 
•SETUP THE INTERRUPT VECTOR AND TURN ON THE KEV80ARD INTERRUPT 

•CALL; 



CLEAR COUNT OF ITEMS IN QUEUE 
MOVE THE STARTING ADDRESS OF THE 
QUEUE INTO THE INPUT g OUTPUT POINTERS. 
INITIALIZE THE KEV80ARD VECTOR 
'T3R" LEVEL 4 
CLEAR DONE FLAG 
ENABlE TTY KEYBOARD INTERRUPT 
RETURN TO CALLER 

•TK SERVICE ROUTINE 

•THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

•BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

•IT IN THE QUEUE. 

•IF THE CHARACTER IS A "CONTROL-C" (*C) STKINT IS CALLED AND 

•UPON RETURN EXIT IS MADE TO THE "CONTROL-C" RESTART ADDRESS OCNTLC) 



024464 


1 1 7746 


154472 




STKSRV: 


MOVB 


aSTKB.-(SP) 


•.•PICKUP THE CHARACTER 


024470 


042716 


177600 






BIC 


#*C177.(SP) 


• .-STRIP THE JUNK 


024474 


021627 


000021 






CMP 


(SP).mON 


■;IS IT A RANDOM XON? 


024500 


001002 








BNE 


30S 


•.•BRANCH IF NO 


0^4502 


005726 








TST 


(SP) + 


■; CLEAN RANDOM XON OFF STACK 


024504 


000002 








RTI 




•.■RETURN 


024 506 








30S: 








024506 


021627 


000003 






CMP 


(SP).*3 


•;IS IT A CONTROL C? 


024512 


001007 








BNE 


1$ 


•;BRAfJCH IF NO 


024514 


104401 


025621 






TYPE 


,$CNTLC 


•;TYPi A CONTROL-C (*C) 


024520 


004737 


024414 






JSR 


PC. STKINT 


■;INI THE KEYBOARD 


024524 


005726 








TST 


(SP) + 


■.•CLEAN UP STACK 


024526 


0001 77 


154640 






J MP 


aCNTLC 


;CON'ROL C RESTART 


024532 


021627 


000007 




IS: 


CMP 


(SP).#7 


•;IS ;T a CONTROL G? 


024536 


001004 








BNE 


2S 


•;BRAA.CH IF NO 


024540 


022737 


000176 


001154 




CMP 


tfSWRFG.SWR 


■;IS 'OFT-SWR SELECTED? 


024546 


001500 








BEO 


6$ 


■;G0 TO SWR CHANGE 


024550 








2$: 








024550 


022717 


000007 


024376 




CMP 


#7. STKCNT 


■;IS THE QUEUE FULL? 


024556 


001004 








BNE 


3S 


.•BRANCH IF NO 


024560 


104401 


001200 






TYPE 


.S8ELL 


;RIN6 THE TTY BELL 



B 8 
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t<;t 




•riPAM ruAOArTFD per n( ctat^ 




nofl4Si 








an 


5S 


« C n J 1 










^ * • 


CMP 


(^P) tf73 
































At Tit ^ 






(V>S7?^i 

lAy^ r CO 








T 




•n FAIU ruAB OFF CTArr 




10S777 












■UAfT Fnn A THAR 












API 




•innP IMTII TT^ TMFBF 
9 L vw~ uni p J L i 1 J P nc nc 




1 17746 


1 S4'^44 






MOyR 




•HFT THF THARATTFR 




042716 








Rir 


1 7? (<.P) 


-makf ft 7-ArT A(^r r I 




\JCC\JC ' 


000021 








(SP)* #?1 






001 366 








RNF 

Of «L 


31$ 


-RftANfH [F MO 




012777 


000100 


1 54?22 






*ioo aiTK^ 


■PrFMAAl F TTV ItFyAOARn iMTF&DflPT^ 
f n t L. 'VIOL c III ^. t ' fj\jfv\ \j i rx 1 t " " ' O 




000002 
00';237 








RT 1 








024376 




324 • 






■rOllMT THI^ fHAPAfTFR 




021627 


000140 






CMP 


(5P) *140 


• I <i IT IIPPFR fA^F 


wC HO J\J 


00240S 










4$ 






021627 


0001 75 








(SP) #175 


;IS IT A SPECIAL CHAR' 


V/C JO 


003002 










4$ 


■RRAMfH IF VF^ 




042716 


0C0040 






Ri r 


#40 (^P) 


■MAItF FT IIPPFR TA^F 




1 1 2677 


1 77510 










'AND PUT IT FN OdFUF 

0 r^r%\^ v\J\ i 1 I'll wuc ^.^c 


024670 


005237 


024400 






INC 


STKQIN 


.•UPDATE THE POINTER 
;G0 OFF »HE END? 




025727 


024400 


024413 




CMP 


tTKQIN.fSTKQEND ; 


024702 


001003 








BNE 


5$ 


;8RANCH IF NO 


024704 


012737 


024404 


024400 




MOV 


#$Tk;QSRT.$TKQIN ; 


.•RESET THE POINTER 


024712 


000002 






5S: 


RTI 




.•RETURN 



024714 022737 000176 001154 

^2U722 001124 

024724 105777 154230 

024730 100121 

024732 117746 154224 

024736 042716 177600 

024742 021627 000007 

024746 001300 



•SCFTUARE SWITCH REGISTER CHANGE ROUTINE. 
•ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
•CALL WHEN OPERATING IN TTY INTERRUPT MODE. 



SCKSWft: 



CW 

BNE 

TST8 

BPL 

M0V8 

BIC 

CMP 

BNE 



#SWRcG.SWR 
15$ 
a$TKS 
15$ 

a$TK8.-(SP) 
#*C177.(SP) 
(SP).#7 
2$ 



IS THE soF^-swR Selected 

EXIT IF NOT 

IS A CHAR WAITING? 

IF NOT, EXIT 

YES 

MAKE IT 7H3IT ASCII 

IS IT A CONTROL-G? 

IF NOT. PUT IT IN THE TTY QUEUE 

AND EXIT 



024750 123727 001150 000001 

024756 001674 

024760 005726 

024762 004737 024414 

024766 005077 154166 

024772 112737 000001 001151 

025000 104401 025633 

025004 104401 025640 

025010 013746 00.1^6 

025014 104402 



•CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
•ROUTINE OR FROM ^HE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
•CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 



6$: CMP8 
6EQ 
TST 
JSR 
CLR 
M0V8 

TYPE 

$GTSWR: TYPE 
MOV 
TYPOC 



$AUT0B.t1 
2$ 
(SP) + 
PC,$TKINT 
a$TKS 
*1.$INTAG 

,$CNTLG 

,$MSWR 

SWREG,-(3P) 



ARE WE RUNNING IN AUTO-MODE? 
BRANCH IF YES 
CLEAR CONTROL-G OFF STACK 
FLUSH THE TTY INPUT QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 
SET INTERRUPT MODE INDICATOR 

ECHO THE CONTROL-G (*G) 

TYPE CURRENT CONTENTS 

SAVE SWREG FOR TYPEOUT 

GO TYPE— OCTAL ASCII fAlL DIGHS/ 



02S016 


104401 


025651 






TVPf 


025022 


005046 






19$: 


CLR 


025024 


005046 








CLR 


025026 


105777 


154(26 




7%: 


^ST8 


025052 


100575 








BPL 


025054 


1 1 7746 


154122 






novB 


025040 


042716 


1 77600 






BIG 


025044 


021627 


000005 






CfP 


025050 


001015 








BNE 


025052 


104401 


025621 






TrPE 


025056 


062706 


000006 






ADD 


025062 


123727 


001 151 


000001 

wwWwW 1 




CMPB 


C25070 


001005 








BNE 


025072 


012777 


000100 

WW ' WW 


1 54060 




MOV 


025100 


0001 77 


1 54266 




8S: 


^MP 


025104 


021627 


000025 




9$: 


CMP 


025110 


001005 








BNE 


025112 


104401 


025626 






T/PE 


025116 


062706 


000006 

WW WW W w 




20t: 


ADD 


025122 


000737 








BK 


025124 


021627 


000015 




1 0$ : 


CMP 


025130 


001022 








BNt 


025132 


005766 


000004 






TST 


025136 


001405 








BEO 


025140 


016677 


000002 


1 54006 




MOV 


025146 


062706 


000006 

W W \r V W 




11$: 


ADD 


025152 


104401 


001205 




14$: 


TYPE 


025156 


123727 


001151 


000001 




CMP8 


025164 


001003 








BNE 


025166 


012777 


000100 


153764 




MOV 


025174 


000002 






15$: 


RTJ 


025176 


004737 


026074 




16$: 


JSR 


025202 


021627 


000060 

W W W W \rf V 






CMP 


025206 


002420 








BLT 


025210 


021627 


000067 






CMP 


025214 


003015 








86 T 


025216 


042726 


000060 

w w w w w 






BIC 


025222 


005766 


000002 

W W W W W k 






Tsr 


025226 


001403 








BEO 


025230 


006316 








asl 


025232 


006316 








ASL 


025234 


006316 








ASL 


025236 


005266 


000002 




17$: 


INC 


025242 


056616 


1 77776 






BIS 


025246 


000667 








BR 


025250 


104401 


001204 




'8$: 


TYPE 


025254 


000720 








BR 










.DSA8L 


Lse 



C 8 

18:59:56 ^AGE 31-2 

« 

.$MNEW ; .-PROMPT FOR NEW 3WR 

-(SP) ;; CLEAR COUNTER 

-(SP) ;;TME NEW SWR 

5$TKS ;;CHAfi THERE? 

7$ ;;IF NOT TRr AGAIN 

a$T<8.-(SP) ;;PICK UP CHAR 

**C177.(SP) ;;MAKE IT 7-Bir ASCII 

(S'-').#5 ;;IS IT A CONTROL-C? 

9$ ; .-BRANCH IF NOT 

.$CNTIC ;-;rES. ECHO CONTROL-C i"C) 

*6.SP .-.-CLEAN UP STACK 

$INTAG.#1 .-.-REENABLE TTr KEYBOARD INTERRUPTS? 

8$ .-.-BRANCH IF NO 

#100.a$TKS .-.-ALLOW TTY KEYBOARD INTERRUPTS 

aCNTLC ;; CONTROL-C RESTART 



(SP).#25 .-.-JS IT A CONTROL -U? 

10$ .-.-BRANCH IF NOT 

.$CNTLU ;;YES. ECHO CONTROL -U CU) 

#6.SP ..-IGNORE PREVIOUS INPUT 

19$ ; .-LET'S ^RY IT AGAIN 



(SP).#15 .-;IS IT A <CR>? 

16$ .-.-BRANCH IF NO 

4(SP^ ;;YES. IS IT THE FIRST CHAR? 

11$ ;;8RANCH IF YES 

2(SP).aSWR .-.-SAVE NEW SWR 

*6.SP .-.-CLEAR UP STACK 

.$CRLF ;;ECHC <CR> AND <LF> 

$INTAG.#1 .-;RE-ENA8LE TTY KBD INTERRUPTS? 

15$ .-.-BRANCH IF NOT 

#100.a$TKS .-;RE-ENABLE TTY KBD INTERRUPTS 

;; RE TURN 

PC.$TYPEC .-.-ECHO CHAR 

(SP).#60 .-.-CHAR < 0? 

18$ .-.-BFiANCH IF YES 

(SP),»67 :.UAAH > 7? 

18$ .-.-BRANCH IF YES 

»60,(SP)* .-.-STRIP-OFF ASCII 

2(SP) .-.-IS THIS THE FIRST CHAR 

17$ ;; BRANCH IF YES 

(SP) .-.-NO. SHIFT PRESENT 

(SP) ;; CHAR OVER TO MAKE 

(SP) ;; ROOM FOR NEW ONE. 

2(SP) .-.-KEEP COUNT OF CHAR 

-2(SP).(SP) .-.-SET IN NEW CHAR 

7$ ;;GET THE NEXT ONE 

,$OUES .-.-TYPE ?<CR><LF> 

20$ .-; SIMULATE CONTROL -U 



D 8 
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SEO 0094 



0?5256 
025260 
025266 
025272 
025274 
025300 
025502 
025302 
025306 
025310 
0253U 
025322 
C25326 
025334 
025336 
025344 



025346 
025350 
025352 
025356 
025362 
025364 
025366 
025370 
025374 
025376 
025400 
C25402 
025410 
025414 
025420 
025422 
025426 
025430 
025434 
025440 
025442 
025444 
025446 
025454 
025460 
025462 
025466 



011646 
016666 
005066 
005046 
012746 
000002 

005737 
001775 
005337 
117766 
005237 
023727 
001003 
012737 
000002 



010346 
005046 
012703 
022703 
101456 
104410 
112613 
122713 
001022 
005716 
001007 
112737 
104401 
012716 
005303 
020327 
103434 
111337 
104401 
000746 
005716 
001406 
112737 
104401 
005016 
122713 
00 1003 



000004 
000004 

025302 



024376 

024376 
177062 
024402 
024402 

024404 



025602 
025621 



000177 



0001 34 
025600 
M7777 

025602 

025600 
025600 



000134 
025600 

000025 



•THIS ROUTINE UILL INPUT A SINGLE CHARACTER FROM THE TTV 
•CALL; 



000002 



SRDCHR: 



64$: 



000004 
024413 

024402 



2$: 



RDCHR 

RETURN HERE 



MOV ISP).-(SP) 

MOV 4(SP).2(SP) 

CLR 4(->P) 

CLP -(SP) 

MOV #64$, -(SP) 
RTI 

TST $TKCNT 

BEQ 1$ 

DEC $TKCNT ; 

M0V8 a$TKQ0bT,4(SP) ; 

INC $TK00UT ; 

CMP $rKQOUT,#$TKOEND 

BNE 2$ ; 

MOV *$TKQSRT.$TKQOUT 

RTI : 



GET A CHARACTER FROM THE QUEUE 
CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 



PUSH DOWN THE PC AND 

THE PS 

GET READY FOR A CHARACTER 
PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



;;WAIT ON A CHARACTER 



DECREMENT THE COUNTER 

GET ONE CHARACTER 

UPDATE THE POINTER 

;DID IT GO OFF OF THE END' 

BRANCH IF NO 

.•RESET THE POINTER 

RETURN 



*TH1S ROUTINE WILL INPUT A STRING FROM THE TTY 
•CALL 



RDLIN 

RETURN HERE 



SRDLIN: MOV 
CLR 



1$: 
2$: 



'0$: 



025600 



025600 



6$; 



5$; 



7$: 



MOV 

CMP 

BLOS 

RDCHR 

M0V8 

CMP8 

BNE 

TST 

BNE 

M0V6 

TYPE 

MOV 

DEC 

CMP 

BLO 

M0V8 

TYPE 

BR 

TST 

BEQ 

M0V8 

TYPE 

CLR 

CMP8 

BNE 



R3.-(SP) 
-(SPJ 

*$TTYIN,R3 

*$TTYIN+15..R3 

4$ 

(SP)*,(R3) 

*1 77, (R3) 

5$ 

<SP) 

6$ 

*'\,9$ 
.9$ 

*-1,(SP) 

R3 

R3.*$TTYIN 
4$ 

(R3).9$ 
.9$ 

2$ 

(SP) 
7$ 

#'\.9$ 
,9$ 

(SP) 

#25, (R3) 
8$ 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
TERMINATOR WILL BE A BYTE OF AIL O'S 

SAVE R3 

CLEAR THE RU80UT KEY 
GET ADDRESS 
BUFFER FULL? 
BR IF YES 

60 READ ONE CHARACTER FROM THE TTY 
GET CHARACTER 
IS IT A RUeOUT 
8R If NO 

IS THIS THE FIRST RU80UT'' 
BR IF NO 

TYPE A BACK SLASH 

SET THE RueOUT KEY 
BACKUP BY ONE 
STACK EMPTY? 
BR IF YES 

SETUP TO TYPEOUT THE DELETED CHAR. 
GO TYPE 

GO READ ANOTHER CHAR. 
RU80UT KEY SET? 
BR IF NO 

TYPE A BACK SLASH 

CLEAR THE RU80UT KEY 
IS CHARACTER A CTRL U? 
BR IF NO 



".bo RM05/?/2 FORMATTER 
INPUT ROUTIME 



MACKO vW.OO 4-APtt-81 



C25A70 

025476 

025504 
025506 
025512 
025516 
025520 
025524 
025526 
025532 
025556 
025542 
025544 
025550 
025554 
025556 
025560 
C25562 
025570 
025576 
025600 
025601 
025602 
025621 
025626 
025633 
025640 
025651 



I 04401 
000726 
122713 
001011 
105013 
104401 
104401 
00071 7 
104401 
000712 
111337 
104401 
122723 
001305 
105063 
104401 
005726 
012603 
011646 
016666 
012766 
000002 
000 
000 

156 
136 
156 
015 
040 



025626 
000022 



001205 
025602 

00^204 

025600 
025600 
000015 

1 77777 
001206 



0C0004 
025602 



103 
125 
107 
012 
040 



000002 
000004 



015 
015 
015 
123 
116 



8S: 



4$: 
3f : 



9$: 

$TTVIN 
$CNTLC 
$CNTLU 
SCNTLG 
SMSWR: 



TYPE 

BR 

CW8 

BNE 

CLR8 

TYPE 

TYPE 

BR 

TYPE 

BR 

M0V8 

TYPE 

CMPB 

BNE 

CLR8 

TYPE 

TST 

MOV 

MOV 

MOV 

MOV 

RTJ 

.BYTE 

.BYTE 

-BLK8 

.ASCI2 

.ASCJZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



E 8 
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.fCMLU ;;TyPE a control 

1$ ;;60 start OVfR 
#22. (R3) ;;IS CHARACTER A '-R".' 
3$ ; .-BRANCH IF NO 
(R3) ;; CLEAR THE CHARACTER 
.SCRLF ;;TYPE A "CR" & "IF" 
.STTYIN ;;TYPE THE INPUT STRING 
2$ ;;G0 PICKUP ANOTHER CHACTEK 
.SQUES ;;TYPE A 'T- 
IS ;; CLEAR THE BUFFER AND LOOP 
(R5).9S ;.ECHO THE CHARACTER 
.9$ 

#15. (R3)* ;; CHECK FOR RETURN 

2$ ;;L00P IF NOT RETURN 

-1(R3) ;; CLEAR RETURN (THE 15) 

.$LF ;;TYPE A LINE FEED 

(SP)* ;; CLEAN RU80UT KEY FROM THE STACK 

(SP)*.R3 ; .-RESTORE R5 

(SP).-(SP) .-.-ADJUST THE STACK AND PUT ADDRESS Of 

4(SP).2(SP> ;.- FIRST ASCII CHARACTER ON IT 

#STTVIN.4(SP) 

. . TURN 

0 ;; STORAGE FOR ASCII CHAR. TO TYPE 

0 ;; TERMINATOR 

15. .-.-RESERVE 15. BYTES FOR ""Y INPUT 

/•C/<15><12> .-.-CONTROL "C" 

/*U/<15><12> .-.-CONTROL '\S' 

/•G/<15><12> .-.-CONTROL "G" 



<15><12>/SWR = / 
/ NEW = / 



r 8 



.'•ROUTINE TO TyPE ASCJZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BrTE. 
.••THE ROUTINE WILL INSERT A NUMBER Of NULL CHARACTERS Af TER A I INE fEFD. 
.■•N0TE1: INULL CONTAINS THE CHARACTER TO DE USED AS THE flLLfR CMMCUh. 

.••N0TE2: JFILLS CONTAINS THE NUMBER Of flLLER CHARACTERS RfOUlRfD. 

.••N0TE3: tFlLLC CONTAINS THE CHARACTER TQ FILL AFTER. 

; • 

••CALL : 

. •!) USING A TRAP INSTRUCTION 

TVPE .MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCI7 STRING 

.••OR 

TVPE 
MESADR 



025662 


105737 


001 1 73 




ST VPE : 


TST8 


STPFLG 




IS THERE A TERMINAL 


025666 


100002 








BPL 


1$ 




■8R IF VES 


025670 


000000 








HALT 






■HALT HERE IF NO TERMINAL 


025672 


000430 








BR 


3$ 




•LEAVE 


025674 


010046 






1S: 


MOV 


RO.-(SP) 




•SAVE RO 


025676 


017600 


000002 






MOV 


a2(SP).R0 




•GET ADDRESS OF ASCIZ STRING 


025702 


122737 


000001 


001230 




CMPB 


*APTENV.$ENV 




•RUWING IN APT MODE 


025710 


001011 








BNE 


62$ 




•NO, GO CHECK FOR APT CONSOLE 


025712 


132737 


000100 


001231 




BITS 


#APTSPOOL.$ENVM 




; SPOOL MESSAGE TO APT 


025^20 


001405 








BEO 


62$ 




•NO. GO CHECK FOR CONSOLE 


025722 


010037 


025732 






MOV 


R0.61$ 




■SETUP MESSAGE ADDRESS FOR APT 


025726 


004737 


027512 






JSR 


PC.$ATV3 




■SPOOL MESSAGE TO APT 


025732 


000000 






61$: 


.WORD 


0 




;MESSAGE ADDRESS 


025734 


132737 


000040 


001231 


62$: 


BITS 


#APTCSUP.$ENVM 




rAPT CONSOLE SUPPRESSED 


025742 


001003 








B/ E 


60$ 




:YtS,S<IP TYPE OUT 


025744 


112046 






2$: 


Move 


(RO)*.-(SP) 




;PUSH CHARACTER TO BE TYPED ONTO STACK 
;8R If IT ISN'T THE TERMINATOR 


025746 


001005 








BNE 


4$ 




025750 


005726 








TST 


(SP)* 




;IF TERMINATOR POP IT OFF fHE STACK 


025752 


012600 






60$: 


MOV 


rSP)*.RO 




^RESTORE RO 


025754 


062716 


000002 




3$: 


ADD 


#2.(SP) 




;ADJUST RETURN PC 


025760 


000002 








RTI 




; RE TURN 


025762 


122716 


000011 




4$: 


CMPB 


*HT. (SP) 




;8RANCH IF <HT> 


025766 


001430 








BEO 


8$ 




025770 
025 774 


122716 


000200 






CMPB 


#CRLF.(SP) .-.-BRANCH IF NOT <CRLF> 


001006 








BNE 


5$ 




025776 


005726 








TST 


(SP)* 


:.-POP <CR><LF> EOUIV 


026000 


104401 








'VPE 






;TVPE A CR AND LF 


026002 


001205 








tCRLF 








026004 


105037 


026212 






CLR8 


$CHARCNT 




•CLEAR CHARACTER COUNT 


026010 


000755 








BR 


2$ 




•GET NEXT CHARACTER 


026012 


004737 


026074 




5$: 


JSR 


PC,$TYPEC 




;60 TYPE THIS CHARACTER 


026016 


125726 


001172 




6$: 


CMPB 


$FILLC.(SP)* 




•IS IT TIME FOR FILLER IHARS.? 


026022 


001350 








BNE 


2$ 




■IF NO GO GET NEXT CHAR. 


026024 


013746 


001170 






MOV 


$NULL.-(SP) 




;GET # OF FILLER CHARS. NEEDED 
•AND THE NULL CHAR. 


026030 


105366 


000001 




7%: 


DECS 


USP) 




■DOES A NULL NEED TO BE TVPED? 


026034 


002^70 








BLT 


6$ 




■BR IF NO~GO POP THE NULL OFF OF b'AC>f 


026056 


004737 


02607*. 
026212 






JSR 


PC.$Trpf 




;G0 TYPE A I^LL 


026042 


105337 






DEC8 


$CHAf,CNT 
7$ 




•DO NOT rouNT AS A COUNT 


G26046 


000770 








BR 




•LOOP 



G 8 



;*<o»<;zon'al tab processor 





1 1 ?71 






o> • 


MnuQ 


W g \ Or t 






n5An7^ 

UcOv' *• 




J j" 


pr CTvPFr 






<WW>7 


r X* 51 ^ 

V<^CC I <^ 




a r TQ 


#7.$CHARCNT 


JcDUOO 


(VM 77? 








0>«C 


y9 




UU J ' CO 








TQT 


I ) ♦ 

k j~/ ▼ 


n PAD 75 










Oft 


cx 


















inS777 


'1 5 ^OAD 






















10* 














m ' 1 I u WW # V J' y 






1 77Ann 






Oil. 






vWvc J 








W wr r * V jr / 


vC\J 1 I u 












10?* 


















10S777 


1 5 ^0^4 




















RPl 


101* 


vcO 1 CO 


1 1 771 A 








MDV/R 
nuvo 


a*TKR f^P) 




f>i?71A 

KJHC f lO 


1 77A0n 

1 f f Ovv 






RI r 


if177^>nO (^P) 


•J CO 1 -JO 


ICC' 1 o 


wvVvC i 




















RNF 


1C14 


















00S726 








< (J 


(SP) * 
















0P6K6 


105777 


15501 2 












100375 








RPl 


10* 




1 16677 


00000? 


1 5 3004 






?(SP) a*TPA 




ICC' \J\J 


00001 5 


00000? 








0261 70 


001003 








BNf 


1$ 


026172 


105037 


026212 






CLR8 


SCHARCNT 


026176 


000406 








BR 


HrPEX 


026200 


122766 


000012 


000002 


1$: 


CMP8 


#LF.2(SP) 


026206 


00U02 
105227 








BEO 


srvPEx 


026210 








INC8 


(PC)* 


026212 


000000 






tfHARCNT.-.WORD 


0 


026214 


000207 






I'^PEx: 


RT*: 


PC 



; .-REPLACE TAB WITH sPAa 
;;TrPt A SPACE 
.-.•BRANCH IF NOT AT 
* * STOP 

••POP SPACE OFF STACK 
;;GET NEXT CHARACTER 

;;CHAR IN K)iBt> BUFFER? 
;;8R IF NOT 
;;GET CHAR 

.-.-STRIP EXTRANEOUS BUS 
.-.-WAS CHAR XOFF 
;.-8R IF NOT 

.-.-WAIT FOR CHAR 

;;GET CHAR 
;; STRIP IT 
;;WAS IT XON? 
;;8R IF NOT 

.-.-FIX STACK 

.-.-WAIT UNTIL PRINTER IS READY 

.-.-LOAD CHAR TO BE TYPED INTO DATA REG. 

;;IS CHARACTER A CARRIAGE RETURN? 

.-.•BRANCH IF NO 

.-.-VES— CLEAR CHARACTER COUNT 

;;EXIT 

;;IS CHARACTER A LINE FEED? 
.-.-BRANCH IF YES 

;; COUNT THE CHARACTER 

;: CHARACTER COUNT STORAGE 



H 8 

) WOS/? / 'S-i^A-'i^ *IACf<0 »C"..:0 <.-APH-81 T8:59:S6 PACE 3? 

TO CCT*l A , II 'vt'f 

.S8TTL BINARY TO OCTAL (ASCII) AND IvPf 



•THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUM8€R TO A 6-DJGIT 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

•CALL: 

• MOV Nl*l,-(SP) ;;NlfBER TO BE TYPED 

• TYPOS ;;call for TYPEOUT 

.BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

.BYTE M ;;M=1 OR 0 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 

•$TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•$TYPOS OR STYPOC 
•CALL: 

MOV NUM.-(SP) .-.-NUMBER TO BE 'YPED 

• -YPON ;;CALL FOR TYPEOUT 

•tTYPOC ENTFw HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL: 

MOV NUM,-(SP) .-.-NUMBER TO BE TYPED 

• TYPGC .-.-CALL FOR TYPEOUT 



026216 


01 7646 


000000 

V w w www 




$T YPOS: 


/■>10V 


a(SP) -(SP) 


•PICKUP THE MODF 


026222 


1 16637 


000001 

wwwwV 1 


026441 




yOV8 


1(SP) tOFILL 


■LOAD 7FR0 FILL SWITCH 


026230 


112637 


026443 






M0V8 


(SP)+.$0M0DE*1 ; 


.-NUMBER OF DIGITS TO TYPE 


026234 


062716 


000002 






ADD 


*2.(SP) 


.-ADJUST RETURN ADDRESS 


026240 


000406 








BR 


STYPON 




026242 


112737 


000001 


026441 


STYPOC: 


M0V8 


*1.$0FILL 


.-SET THE ZERO FILL SWITCH 


026250 


112737 


000006 


026443 




M0V8 


*6.$0M0DE*1 


.-SET FOR SIX(6) DIGITS 


026256 


112737 


000005 


026440 


$TYPON: 


MOVB 


*5.$0CNT 


.SET THE ITERATION COUNT 


026264 


010346 








MOV 


R3.-(SP) 


.-SAVE R3 


026266 


010446 








MOV 


R4.-(SP) 


.•SAVE R4 


026270 


010546 








MOV 


R5.-(3P) 


;SAVE R5 


026272 


1 1 3704 


026443 






MOVB 


$0M0DE*1.R4 


.-GET THE NUMBER OF DIGFS TO TYPE 


026276 


005404 








NEC 


R4 




026300 


062704 


000006 






ADD 


*6,R4 


.-SUBTRACT IT FOR MAX. ALLOWED 


026304 


110437 


026442 






MOVB 


R4 . $0M0DE 


;SAVE IT FOR USE 


026310 


1 1 3704 


026441 






M0V8 


$0fJLL.R4 


.-GET THE ZERO FILL SWITCH 


C26314 


016605 


000012 






MOV 


1?(SP).R5 


.-PICKUP THE INPUT NUMBER 


026320 


005003 








ClR 


R3 


.-CLEAR ^HE OUTPUT WORD 
.-ROTATE MSB INTO "C" 


026322 


006105 






1$: 


ROl 


R5 


026324 


000404 








BR 


3$ 


;G0 DO MSB 


026326 


006105 






2$: 


ROL 


R5 


.-FORM THIS DIGIT 


026330 


006105 








ROL 


R5 




026332 


006105 








ROL 


R5 




026334 


010503 








MOV 


R5,R3 




026336 


006103 






3t: 


ROL 


R3 


.-GET LS8 OF THIS DIGIT 


026340 


105337 


026442 






DECB 


SOMODE 


;TYPE THIS DIGF? 


026344 


100016 








8PL 


7$ 


;8R IF NO 


026346 


042703 








8IC 


#1 77770. R3 


.-GET RID OF JUNK 


026352 


001002 








BNE 


4$ 


.TEST FOR 0 


026354 


005704 








TST 


R4 


.•SUPPRESS THIS 0? 


026556 


001403 








BEO 


5t 


-BR IF YES 


C26560 


005204 






4t: 


INC 


R^ 


•DON'^ SUPPRESS ANYMORF ">"• 



t- rj^TAt (ASCII) AND TVPE 

: 26562 052703 000060 

026566 052703 000040 

026572 110357 026^56 

026576 10AA01 026456 

026402 105557 02644C 

C26406 005347 

026410 002402 

026412 005204 

026414 000744 

026416 012605 

026420 012604 

026422 012605 

026424 016666 000002 000OC4 

026432 012616 

026454 000002 
026436 000 
026457 000 

026440 000 

026441 000 

026442 000000 





BIS 


S$: 


BIS 




M0V8 




TYPE 




oE ca 




8GT 




blt 




INC 




8ft 


6$: 


MOV 




MOV 




MOV 




MOV 




MOV 




RTI 


8$: 








see NT. • 


.RyTE 


toniL: 


.evTE 


SOMODE : 


.WORD 
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#'0.R5 
#• ,R3 

R5.8$ 
.8S 

tOCNT 

2$ 

6$ 

R4 
21 

(SP)*.R4 
(SP)*.R3 
2(SP),4(SP) 
(SP)*.(SP) 

0 
0 
0 

0 
0 



MAKE THIS DIGIT ASCII 
MAKE ASCII IF NO' ALRfADv 
SAVE fOR TYPING 
GO rrPE THIS DIGIT 

COUNT av 1 

8R If MORE TO DO 
8R IF DONE 

INSURE LAST DIGIT ISN'T A FJi AN» 
GO DO THE LAST DIGP 
RESTORE R5 
■RESTORE R4 
; RE STORE R5 

;SET THE STACK FOR RETURNING 
; RE TURN 

; STORAGE FOR ASCII DIGIT 
; TERMINATOR FOR TYPE ROUTINE 
;OCTAL DIGIT COUNTER 
;ZERO FILL SWITCH 
;NUM8ER OF DIGITS TO TYPE 



J 8 
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,S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



0P6450 
0?6A52 
026A5A 

026A66 
026A70 
026A72 
026500 
026502 
026506 
026512 
02651A 
026520 
026522 
02652A 
026526 
026530 
026532 
02653A 
026536 
0265A0 
0265A2 
0265AA 
0265A6 
02655A 
C26560 
026564 
026566 
026570 
026574 
026576 
026600 
026602 
026604 
026606 
026610 
026616 
026620 
026622 
026624 
C26626 



010046 
010146 
010246 
010346 
010546 
012746 
016605 
100004 
005405 
112766 
005000 
012703 
112723 
005002 
016001 
160105 
002402 
005202 
000774 
060105 
005702 
001002 
105716 
100407 
106316 
103003 
116663 
052702 
052702 
110223 
005720 
020027 
002746 
003002 
01050? 
000764 
105726 
100003 
116663 
105013 
012605 
012603 
012602 
012601 



020200 
000020 



000055 000001 



026660 
000040 

026650 



•THIS ROUTINE IS USED TO CHANGE A 16-81 T BINARY NLW8ER TO A 5-DIGJT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER '^E 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE T/PfD 
•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WiLl ALWAYS Bf 
•REPLACED WITH SPACES. 



•CALL: 



ITYPDS: 



000001 
000060 
000040 



000010 



\77777 



11; 



2$: 



4$: 



5$: 



6$: 
7$: 



1777^7 177776 



8$; 



•i>\ 



MOV NUr.-CSP) 
TYPDS 



MOV RO,-(SP) 

MOV RI.-(SP) 

MOV R2,-(SP) 

MOV R3,-(SP) 

MOV R5.-(SP) 

MOV *20200.-(SP; 

MOV 20(SP).R5 

BPL IS 

NEG r; 

M0V8 *'-.1(bP) 

CLR RO 

MOV *$D8LK.R3 

M0V8 #• .(R3)+ 

CLR R2 

MOV $DT8L(R0).R1 

sue R1.R5 

BLT 4$ 

INC R2 

BR 3$ 

ADD R1.R5 

TST R2 

BNE 5$ 

TST8 (SP) 

BMI 7$ 

ASL8 (SP) 

BCC 6$ 

M0V8 1(SP).-1(R3) 

BIS *'0.R2 

BIS *• .R2 

M0V8 R2.(R3)* 

TST (R0)» 

CMP R0.*10 

BLT 2$ 

8GT 8$ 

MOV R5.R2 

6R 6$ 

TST8 (SP)+ 

BPL 9$ 

M0V8 -1(SP).-2(R3) 

CLR8 (R3) 

MOV (SP)*.R5 

MOV (SP)*.R^ 

MOV (SP)*,R2 

MOV (SP)».R1 



;;PUT THE BINARY NUMBER ON THE STAi>t 
.;G0 TO THE ROUTINE 



PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

8R IF INPUT IS POS. 

MAKE THE BINARY NUMBER POS. 

MAKE THE ASCII NUMBER NEG. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

8R IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT- 0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S? 

8R IF YES 

MSD? 

8R IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

WAS THE LSD THE HRST NON-ZERO? 

8R IF NO 

YES— SET THE SIGN FOR TYPING 

SET THE TERMINA'OR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 



N.^i^' bll^Rv TO DECIMAL AND tyP£ KOOTiME 

026630 012600 
026632 104401 C26660 
026636 016666 000002 000004 



ic 8 
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026644 012616 

026646 000002 

026650 023420 

026652 001750 

026654 000144 

026656 000012 
026660 



IDT9L ; 



tDBLK; 



MOV 
TYPE 

nov 

MOV 
RTI 

10000. 

1000. 

100. 

10. 

.8LKW 



(SP)».R0 
.$D8LK 
2(SP).4(SP) 
(SP)*,(SP) 



;;POP STACK INTO RO 
;;NOW TYPE Th£ NUMBER 
ADJUST THE SUCK 

;; RE TURN TO USER 



I 
# 



' rj:}c - Tvpf ASCIZ. RFPL*CE 



MACRO V04.00 
LEADING O'S WITH 



4-APR-81 
BLANKS 



18:59:56 



L 

PAGE 



8 

55 



&£0 OlOeT 







.S8TTL 


$SUPRS 


- TYPE ASC17. 


REPLACE LEADING O'S WITH BMNHS 


7 






.S8TTL 


$SUPRL 


- TYPE ASCIZ. 


LEFT JUSTIFY 


** 






' CALL : 






























JSR 


PC.SSUPRS 


H 






■ OR 














MOV 


*NUMADR.-(SP) 


.•FIRST ADDRESS OF ASri7 STRING 










JSR 


PC.SSUPRL 


'2 026670 


010046 


SSUPRL : 


MOV 


RO.-(SP) 


.-SAVE RO 


13 026672 


016600 


000004 




MOV 


4(SP).R0 


;6ET POINTER TO MESSAGE 


H 026676 


005037 


026760 




CLR 


$SUPR2 


IS 026702 


000405 






BR 


SSUPRl 




16 

17 02670A 


010046 


SSUPRS: 


MOV 


RO.-(SP) 


.•SAVE RO 


18 026706 


016600 


000004 




MOV 


4(SP).R0 


.•GET POINTER TO MESSAGE 


19 026712 


010037 


026760 




MOV 


R0.$SUPR2 


;GET POINTER FOR TYPI% 


20 C26716 




SSUPRI : 








21 026716 


105710 


1$: 


TST8 


(RO) 


;TEST FOR TERMINATOR 


22 026720 


001406 






BEO 


2$ 


;YES 


23 026722 


122710 


000060 




CMPB 


#'0.(R0) 


;IS THIS A '10" ? 


2A 026726 


00"'006 






8NE 


3$ 


;N0 


25 026730 


112720 


000040 




M0V8 


*40.(R0)* 


.-REPLACE IT WITH A 'BLANK" 


26 026734 


000770 






BR 


1$ 


.•NEXT CHAR. 


27 026736 


005300 


2S: 


DEC 


RO 


.•BACKUP 1 


28 026740 


112710 


000060 




M0V8 


*'0.(R0) 


;MAKE IT "O" 


29 02674A 


005737 


026760 3$: 


TST 


$SUPR2 


.•LEFT JUSTIFY ? 


30 026750 


001002 






8NE 


4$ 


.•NO 


31 026752 


010037 


026760 




MOV 


R0,$SUPR2 


;YES 


32 026756 


104401 




TYPE 






33 026760 


000000 


$SUPR2 : 


.WORD 


0 




34 026762 


012600 






MOV 


fSP)+.R0 


.•RESTORE RO 


35 026764 


012616 






MOV 


(SP)*,(SP) 


.•RESTORE STACK 


36 026766 


000207 






RTS 


PC 



"Zt^MLBO RMOS/Va FORMATTER HACRO V04.00 4-APR-81 
$SufRL - TVPE ASCIZ. LEFT JUSTIFY 

.•ROUTINE TO RE 

2 .-CALL: 

5 ; MOV 

4 ; JSR 

5 ; .WORD 

6 ; OR 

7 ; MOV 

8 ; JSR 

9 : .WORD 
10 

n 026770 005237 027076 fILLZ: INC 

^2 

13 026774 010046 REPLZ: MOV 

14 026776 016600 000004 MOV 

15 027002 005737 027076 TST 

16 027006 001014 BNE 

17 027010 122710 000060 1$: CMP8 

18 027014 001004 BNE 

19 027016 112710 000040 M0V8 

20 027022 005200 INC 

21 027024 000771 BR 

22 027026 105710 2$: TST8 

23 027030 001003 BNE 

24 027032 005300 DEC 

25 027034 112710 000060 M0V8 

26 027040 016600 000004 3$: MOV 

27 027044 105720 4$: TSTB 

28 027046 001376 BNE 

29 027050 005300 DEC 

30 027052 162500 SUB 

31 027054 010037 027062 MOV 

32 027060 104401 ' TYPE 

33 027062 000000 5$: .WORD 

34 C27064 012600 MOV 

35 027066 012616 MOV 

36 027070 005037 02707^ CLR 

37 027074 000205 RTS 
38 

39 027076 000000 FI.lO: .WOHy 



M 8 

18:39:56 PAGE 36 



ACE LEADING ZEROS IN A NUMERIC STRING WITh SPACES 

*ADR.-(SP) .-ADDRESS OF NUMBER (IN ASCII) 

R5. REPLZ .'REPLACE PRECEDING ZEROS WITH BLANKS 

N .-'N' IS NUMBER OF DIGITS TO BE TvPfD 

*ADR,-(SP) .-ADDRESS OF NUfBER (JN ASCII) 

R5. FILLZ .-TYPE PRECEDING ZEROS 

N .-'N' IS NUMBER OF DIGHS TO BE TYPED 

FILLO .-LEAVE ZERO'S 

RO,-(SP) .-SAVE RO 

4(SP),R0 .-ADDRESS OF NUMBER TO RO 

FILLO .-LEAVE PRECEDING ZEROS ? 

3$ ;8R IF YES 

*'0.(R0) .-BYTE EQUAL TO ASCII 'O* ? 

2$ ;8R IF NOT 

*40.(R0) .-REPLACE THE ZERO WITH A SPACE 

RO .-INCREMENT THE BYTE ADDRESS 

1$ ;G0 BACK AND LOOK FOR MORE LEADING ZEROS 

(RO) .-SEE IF ZERO BYTE TERMINATOR 

3$ .-BR IF NOT 

RO .-BACKUP STRING POINTER 

*'0.(R0) .-PUT A ZERO BACK IN 

4(SP).R0 ;PUT ADDRESS OF FIRST CHARACTER ON STACK 

(RO)* .-SEE IF ZERO BYTE TERMINATOR 

4$ ;BR IF NOT 

RO .-BACKUP STRING POINTER 

(R5) + .R0 .-ADJUST ADDRESS 

R0.5$ .-GET ADDRESS FOR TYPE OUT 

;TYPE THE NUMBER 

0 .-ADDRESS OF NUMBER 

(SP)-^.RO .-.-POP STACK INTO RO 

(SP) + .(SP) .-RESTORE STACK 

FILLO .-RESET FILL FLAG 

R5 .-RETURN 

0 .-IF SET, LEAVE PRECEDING ZEROS FOR TYPE 



1 
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\.'H -iINA^' '0 :>£'IMAL ASCIZ ROUTINE 



StQ OlOd 



.S8TTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 

'•THls'ROUnNE*UlLL*CONVERT A 16-81 T UNSIGNED BINARY NUMBER TO AN 
•LMSIGNED DECIMAL ASCIZ NUMBER. 
•CALL 

MOV NUMBER. -(SP) 



JSR PC.a*tSB2D 
RETURN 



PUT BINARY NUMBER ON THE STACK 
CALL 

ADDRESS OF THE 1ST ASCIZ CHAR. IS ON THE STACK 



027100 
027106 
027112 
027116 
027122 
C27126 
0271^0 



016637 
012746 
004737 
062716 
012666 
000207 
000000 



000002 
0271 30 
027134 
000005 
000032 

000000 



027130 $SB2D: 



IS; 



MOV 
MOV 
JSR 
ADD 
MOV 
RTS 
.WORD 



2(SP).1t 

#1$.-(SP) 

PC.a#tDB2D 

#5.(SP) 

(SP)+,2(SP) 

PC 

0.0 



SAVE BINARY NUMBER 
SET POINTER 

CALL DOUBLE LENGTH CONVEKT 
ONLY ALLOW FIVE CHARACTERS 
PICKUP POINTER 
RETURN 
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.-. ^I'^AJ-. 'C T'E'I'Wu ASCII CONVERT ROUTINE 

.S8TTL DOUBct LENGTH fiI\AR» TQ DECIMAL ASCII CONvERT fiOO^ l\i 

:*THIS ROUTINE WILL CONVERT A 3?-eiT BI^4ARY NUMBER TQ AN tiNSIGNED 
.-•DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
.••POSITIVE. 
.••CALL 

;• MOV #PNTR,-(SP) .-.'POINTER TO LOW WORD OF BINARY f^mi^ 

JSR PC.8*IDB2D 
;• RETURN ;;THE FIRiT ADDRESS OF ASCIZ 

;;JS ON THE STACK 



0271 5A 


104412 


$D32D : 


SAVREu 




.-.-SAVE REGISTERS 

;; PICKUP THE DATA POINTER 


027'' 36 


016602 


000002 


MOV 


2(SP) .R2 


027U2 


012700 


027314 


MOV 


*$DECVL ,R0 


;;GET ADDRESS OF "SDECVL" STRING 


027K6 


010066 


000002 


MOV 


R0.2(SP) 


.-.-PUT ADDRESS OF ASCIZ STRING ON 


027152 


012201 




MOV 


(R2)*.R1 
(R2) ♦.R2 


: .-PICKUP THE BINARY NUMBER 


027154 


012202 




MOV 




C271 56 


012757 


000012 027232 


MOV 


*10. ,4$ 


;;SET UP TO DO 10 CONVERSIONS 


027164 


012704 


027244 


MOV 


«STNPWR.R4 


: .-ADDRESS OF TEN POWER 


0271 70 


012705 


027246 


MOV 


#STNPWRt2,R5 




0271 7A 


005005 




CLR 


R3 


;; CLEAR PARTIAL 


027176 


161401 


2$: 


SUB 


(R4) .R1 


;; SUBTRACT TEN POWER 


027200 


005602 




S8C 


R2 




027202 


161502 




sue 


(R55.R2 




027204 


002402 




BIT 


3$ 


;;8R IF TEN POWER TO LARGE 


027206 


0052C3 




INC 


R3 


;;ADD 1 TO PARTIAL 


0if7210 


000772 




BR 


2$ 


;;LO0P 

; .-RESTORE SUBTRACTED VALUE 


027212 


062401 


3$: 


ADD 


(R4)+,R1 


027214 


005502 




ADC 


R2 




027216 


062402 




ADD 


(R4)+,R2 




027220 


022525 




cw> 


(R5;*.(R5)* 


.-.-MOVE TO NEXT TEN POWER 


027222 


052703 


000060 


6JS 


xr'0.R5 


;; CHANGE PARTIAL TO ASCII 


027226 


110520 




MOVB 


R5.(R0)*- 


.-.•SAVE IT 


027250 


005527 




DEC 


(PC)* 


;;DONE? 


027212 


000000 


4S: 


.WORD 


0 




027234 


0015b7 




BNE 


1S 


;;8R IF NO 


027236 


105020 




CLR8 


(R0)» 


;; TERMINATOR 


027240 


104413 




RESREG 




;. -RESTORE REGISTERS 


027242 


000207 




RTS 


PC 


; .-RETURN 


02721^1^ 


145000 


tTNPWR: 


i4';ooo 




.•;1.0E09 


0272t.t 


055632 




3';632 






027250 


160400 




'60400 




.-.-1.0E08 


027252 


002765 




2765 




;.-1.0E07 


027254 


1 1 5200 




113200 




027256 


000250 




230 






027260 


041100 




041100 




.-.•1.0E06 


027262 


000017 










027264 


103240 




105240 




.-;1.0E05 


027266 


000001 




1 






027270 


023420 




23420 




;;1.0E04 


027272 


000000 




0 




;;i.0E03 


027271. 


001 750 




1750 




027276 


000000 




0 






027300 


000144 




144 




;.-1.0E02 


02730? 


oooooo 




0 
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TueiE Lft^TM BINAPV TO DfCIWAL ASCII CONVERT HOUTilV* 

0?730<, 0000^2 

027106 000000 0 

027310 000C01 I 

327512 000000 .^^^ 0 

0^75U IDECVL: .8Lfc8 12. 



SEP 0^06 

;1.0E01 
;1.0E00 

.•RESERVE STORAGE FOR ASCIZ STRI^tG 



:'-^'*ib^ c<MOS/^'? fORMAfTCft MACRO vJ^.OC 

.:Vo.L .ENGTh BINMv to octal A3fIZ ROoTIM€ 



0 9 

4-APR-81 '8:39:S6 PAGE 59 



.S8TTL SINGLE LENGTH BINARY TO OCTAL ASCIZ ROUTINE 



nov 

JSft 

RETURN 

037550 016637 00000? 02^360 SS820: MOV 
027336 012746 027360 MOV 
0273A2 004737 027564 JSR 
027346 062716 000005 ADD 
02735? 012666 000002 MOV 
0273S6 000207 RTS 
:27360 000000 000000 ^l: .WORD 



•THIS ROUTINE WILL CONVERT A 16-8r UNSIGNED BINARY NUMBER TO AN 
•UNSIGNED OCTAL ASCIZ NUMBER. 
•CALL 



NUMBER. -(SP) 
PC.ai#$SB20 



2(SP).1S 

*1$.-<SP) 

PC.a*JDB20 

#5.(SP) 

(SP)*.2(SP) 

PC 

0.0 



PUT BINARY NUMBER ON THE STACK 

CALL 

ADDRESS OF 1ST ASCIZ CHAR. IS ON THE STACK 

SAVE THE BINARY NUMBER 
SET POINTER 

CALL DOUBLE LENGTH CONVERT ROUTINE 
ONLY ALLOW SIX CHARAtTERS 
PICKUP POINTER 
RETURN 
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Cuba AHClH BINARY TO OCTAL ASCII CONVERT ROUTIME 

.S8TTL DOUBLE LENGTH BINARY TO OCTAL ASCII lONVERT ROUTINE 

■•THIS ROUTINE WILL CONVERT A 32-81 T UNSIGNED BINARY NUMBER TO AN 
.-•UNSIGNED OCTAL ASCIZ NUMBER. 









; •CALL 
















nuv 




#rUi"l»tn lU LUW wUnU Ur OJniMKT Ni.^^3tn 










ICQ 


fi. (•VM'OcU « 


• TAii tmp orMiTnuP 










DP Tl IBM 


a 


• TUF Annopcc nr tup f roct Acri? tuad ic r 

. inc MUUnCjj U" inc ' 'nil njLJ/ ».nMn, Jo 1 














•CAV/F All DPr^lQTrOQ 














• PiririiP TMF PnrKiTFR in > nu unon 
. ~ 1 L ^u~ inc "ujniicn lu uw wuni/ 




ni 37n«; 






nuv 


#tnr TV/I ♦ 1 7 OS 


■pniNTFR Tn DATA TARI F 


n57?7A 


\) \ CI u** 






nuv 




•nn Pi Fl/FM rMARATTFR^ 
. l/U CLCVCni LHMnML icnj 






1 7777n 




nuv 














nuv 


f R1 ) 4- QH 


. Luwcn wuni/ 










nuv 




#ni \jri wunM 


I C ' •» 1 C 










RP 


■ TFRMINATOR 
. 1 c nn 1 111^ 1 un 


Uc r *« 1 *t 






1 9 « 


nu vo 


R? -(R^) 


*PliT THARArTFR TM DATA TARl F 


n57Z.1 A 
\JC f 1 o 


U 1 \J\J\)C 






nuv 


RD R? 

nu » nr . 














R^ 


■rniMT THF^ THARArTPR 


KJc. f ^CC 


\J\J J\J\J r 










■RR JF NOT THF 1 A<;T DFGIT 




nni ^(t; 










•RR IF IT I^ THF i A^T Rlf^IT 
.on ir i 1 J J inc L."o t f 










f Mr 


R5 


•All DIGITS DniMF-ADJU'iT POIMTFR FOR F IR<iT 






noftoop 




MOV 


R5 P(<;p) 


•A<irf7 THAR £ PliT IT DM THF ^I^CK 




1 OLL 1 






one U 








nnnon7 

\J\J\JC\Ji 








PC 


-PPTllPM TD II^PP 














•Pn^ I T lOM THF MA^K F DP THF 1 A^T D fGT T 




006001 




5$: 


ROR 


RI 


-POSITION THE BINARY NUMBER FOR 




006000 






ROR 


RO 


; THE NEXT OCTAL DIGIT 


027446 


00600" 






ROR 


RI 




0P7450 


006000 






ROR 


RO 




027452 


006001 






ROR 


RI 




027454 


006000 






ROR 


RO 




027456 


040302 






BIC 


R3,R2 


.•MASK OUT ALL JUNK 


027460 


062702 


000060 




ADD 


#*0.R2 ; 


;MAKE THIS CHAR. ASCII 


027464 


000753 






BR 


IS 


;G0 OUT IT IN THE DATA TA8i E 


027466 






SOCT/L: 


.8LK8 


'4. 


.-RESERVE DATA TABLE 
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.S8TTL APT COMMUNI CATIONS ROUTINE 





1 1P7^7 

1 C' Jf 




OP77SO 
VC ' ' JV 


III. 




#1 IF Fl G 


•TO RFPORT FATA. FRRQR 


vc 'J 1 C 


^ 1 P7^7 




0P7746 

VC ' ' "•U 




nv 


#1 tMFLG 


•TO TYPE A MESSAGE 


\JCfJC\J 










on 








1 1?7^7 




0P77S0 

vC ' 1 Jv 


tAT V4 • 




#1 SFFLG 


-TO ONt Y RFPORT FATAl FRROR 










tAT vr • 


















MOV 

• IV* 


RO -(SP) 


;PUSH RO ON STACK 


f)P7SX3 


0101^<'« 








MOV 


R1 -(SP) 

1' L. V c 


•PUSH R1 ON STACK 














•SHDlJlD TYPE A MFSSAGF'' 

« ^nvvc '''t ilC'JJ'"VL.. 












RFO 


5$ 


• J F NOT : BR 




1P?7^7 


ooooni 


001 P30 

W 1 C J\J 






/fAPTFNV tFNV 


•OPERATING UNDER APT? 




0010^1 

Vw 1 V J i 








Of vC 


3$ 


;IF NOT: BR 




1 JC. 1 Jf 


000100 


001 2^ 




BI TB 


*APT SPOOL SENVM 

^r^M 1 fcjr WC / *C'»w 1 


•SHtXJLD SPOOL MESSAGES' 




001 APS 








BFO 

wC w 


3$ 


-IF NOT: BR 
■GET MESSAGE ADDR 




01 7600 

V 1 ' WW 


000004 

VWWH 






MOV 


34 (SP) RO 




Vv>C ' \J\J 


OOOOOP 

V WWc 


000004 

vvwv * 




ADD 


*2.4(SP) 


"BUMP RETURN ADDR. 




00S7^7 

\J\J J 1 Jf 


001 PI 0 

vv 1 C I V 






"ST 


SMSGTYPE 


-SEE IF DONE W/ LAST XMISSION'' 




001 37S 

VV 1 / ' J 








BNE 


1$ 


;IF NOT: WAIT 
■•PUT ADDR IN MAILBOX 


02760? 


010037 

V ' W -J 1 


001224 

VV * c c ^ 






MOV 


RO SMSGAD ! 




10S720 

\\J J f C V 






2S • 

C * • 


TST6 


(RO)* 


••FIND END OF MESSAGE 




vv \ Jf \J 








U' iC 


2$ 






163700 

* \J Jf V V 


001 224 

VV 1 c c ~ 






sue 


$MSGAD,RO 


•;SU8 START OF MESSAGE 


027616 


006200 

V WC V V 








ASR 


RO 


.•GET MESSAGE LNGTH IN WORDS 


027620 


010037 

V 1 W J ' 


001226 

V V ' C C V 






MOV 


RO,$MSGLGT 


•;PUT LENGTH IN MAILBOX 




0127'i7 

V ■ C ' -J I 


000004 

w w V^ 


001210 




MOV 


#4.$MSGTYPE 


■;TELL APT TAKE MSG. 


027632 
02763^ 


0004 1 3 
VW" ' 








BR 


5$ 




01 7637 


000004 

W VV V^ 


027660 


3$: 


MOV 


a4(SP).4S 


■;Pl' MSG ADDR IN JSR LINKAGE 


C)?76A2 


062766 

VwC ' Ww 


OOOOOP 

VV w v«- 


000004 

w w v~ 




ADD 


*2.4(SP) 


;;8UMP RETURN ADDRESS 




01 3746 

V ' J ■ ~ V 


1 7777b 






MOV 


1 77776, -(SP) .-.-PUSH 177776 ON STACK 


0P7654 


004 737 


025662 

VC VWC 






JSR 


PC. $ TYPE .-.-CALL TYPE MACRO 


027660 


000000 

WWW 






4S: 


.WORD 


0 




OP 7662 








5$: 








OP 7662 


105737 


027750 

VC ' ' J\J 




'0$: 


TST8 


IFFLG 


;; SHOULD REPORT FATAL ERROR? 




001416 

VV 1 I V 








BEO 


12$ 


;;IF NOT: BR 


OP 76 70 


005737 


001230 






TST 


$ENV 


; .-RUNNING UNDER APT? 


OP 7674 


00141 3 








BEO 

WC *■ 


12$ 


;;IF NOT: BR 


OP 7676 


005737 

VV J f J f 


001210 

VV " C ' V 




■"It- 


TST 


$MSGTYPE 


.-.•FINISHED LAST MESSAGE? 


027702 


001 375 

V V % J ' 








BNE 


11$ 


;;iF NOT: WAIT 


027704 


01 7637 


000004 

V V vvv~ 


001212 

W I C 1 c 




MOV 


a4(SP) .$FATAl 


;;GET ERROR * 


02771? 


062766 

VVC ' w 


000002 

V V VV VC 


000004 

vvv 




ADD 


#2.4(SP) 


;;8UMP RETURN ADDR. 


027720 

VC ( * C V 


005237 

VV -^C • 


001210 






INC 


$MSGTYPE 


;;TELL APT TO TAKE ERROR 


Q2772U 

VC « ' c ~ 


105037 


027750 




12f : 


CLRB 


$FFLG 


;; CLEAR FATAL FLAG 


0^7750 


105037 


0277U7 






CLR8 


SLFLG 
SMFLG 


CLEAR LOG FLAG 


027734 


105037 


0277^,6 






CLR8 


CLEAR MESSAGE FLAG 


027740 


012601 








MOV 


(SP)*,R1 


;;POP STACK INTO R1 


VC ' ' 


012600 

V 1 cww 








MOV 


(SP) ♦.RO 


.-.-POP STACK INTO RO 


0277i,U 

VC ' ' ~~ 


000207 

W VC V ' 








RTS 


PC 


;; RE TURN 


027746 


oou 








• BYTE 


0 


;;MESSG. FLAG 


0277^,7 


000 






$LFLG: 


.BYTE 


0 


;;LOG FLAG 


027750 


000 

000200 
000001 






SFFLG: 

APTSIZE 
APTENV 


.BYTE 

.e;en 

200 
= 001 


0 


;; FATAL FLAG 




000100 






APT SPOOLS 100 








000040 






APT C SUP 


= 040 
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.SSTTL SAVE AND RESTORE R0-R5 ROUTINES 



SAVE R0-R5 
CALL : 

SAVREG 

UPON RETURN FRQM SSAVREG THE STACK WiL. 



TOP- 

♦A- 
♦6- 
♦8- 

♦ 10- 

♦ 12- 

♦ U- 



-(♦16) 

-(♦18) 

-R5 

-RA 

-R3 

-R2 

-R1 

-RO 



027752 
027752 
C27754 
027756 
027760 
027762 
027764 
027766 
027772 
027776 
030002 
0^0006 



030010 
030010 
0300U 
030020 
030024 
030030 
030032 
030034 
C 30036 
050040 
C 30042 
030044 



010046 
010146 
010246 
010346 
010446 
010546 

016646 000022 
016646 000022 
016646 000022 
016646 000022 
000002 



fSAVREG: 



012666 
012666 
012666 
012666 
012605 
01 2604 
012605 
012602 
012601 
012600 
000002 



000022 
000022 
000022 
000022 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

•RESTORE R0-R3 



RO.-(SP) 

R1 .-(SP) 

R2.-(SP) 

R3.-(SP) 

R4.-(SP) 

R5.-(SP) 

22(SP).-(SP) 

22(SP),-(SP) 

22(SP).-(SP) 

22(SP).-(SP) 



•CALL : 



SRESREG: 



RESREG 

'mov 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



{SP)^,22{SP) 

(SP) ♦, 22 (SP) 

(SP)+.22(SP) 

(SP)+,22{SP) 

(SP)*.R5 

(SP)*.R4 

(SP)*,R3 

(SP)*,R2 

(SP)».Ri 

rSP) ♦.RO 



PUSH RO 
PUSH R1 
PUSH R2 
PUSH R3 
PUSH R4 
PUSH R5 
SAVE PS 
SAVE PC 
SAVE PS 
SAVE PC 



ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 

MAIN FLOW 
MAIN FLOW 
CALL 
CALL 



OF 
OF 
OF 
OF 



RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLDu 
RESTORE PS OF MAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 



':m.BC wov</? if^jk^'fft 



05010? 
03010A 
030106 
030110 
030112 
030n4 



030070 
U25662 
026P4? 
026216 
026256 
026444 



030116 025004 



030120 
030122 
C 301 24 
030126 
030130 



024714 
025256 
025346 
027752 
030010 
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.ssttl trap decoder 



•THIS ROUTINE WILL PICKUP THE LOWER BYTE Of THE "'TRAP" INSTRUCTION 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRtS'=> 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINFr H WlU 
•GO TO THAT ROUTINE. 



030046 010046 

030050 016600 000002 

0300S4 005740 

030056 111000 

050060 006300 

030062 016000 030102 

030066 000200 



C30070 or 646 

030072 016666 000004 

030100 000002 



000002 



ITRAP: 




on ^ / CD \ 




MOV 


2(3P).R0 




TST 


-(R0> 




MDV/D 

nuvts 






ASL 


RO 




MOV 


$TRPAD(RO),RO 




RTS 


RO 


;;:his 


IS USE 


TO HANDLE THE " 


$TRAP2: 


MOV 


(SP),-(SP) 




MOV 


4fSP).2(SP) 




RTI 




.S8TTL 


TRAP 


TABLE 



;;SAVE RO 

;;GET TRAP ADDRESS 

; .-BACKUP BY 2 

;;GET RIGHT BYTE OF TRAP 

; .-POSIT ION FOR INDEXING 

;; INDEX TO TABLE 

;;G0 TO ROUTINE 



GETPRI" MACRO 

.-.-MOVE THE PC DOWN 
;;MOVE THE PSW DOWN 
; .-RESTORE THE PSW 



.-•THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;«8Y THE "TRAP" INSTRUCTION. 



STRPAD: 



ROUTINE 

.WORD 

STYPE 

STYPOC 

$ TYPOS 

STYPON 

STYPDS 

SGTSWR 

fCKSWR 

SRDCHR 

SRDLIN 

SSAVREG 

SRESREG 



$TRAP2 

CALL TYPE 
:CALL=TYPOC 
;CALL=TYPOS 
;CALL-TYPON 
;CALL=TYPDS 

:CALL=GTSWR 



CALL=CKSWR 
CALL=RDCriR 
CALL=RDLIN 
CALL-SAVREG 
CALL RESREG 



TRAP+1 (104401) 
TRAP+2( 104402) 
TRAP*5( 104405) 
TRAP+4( 104404) 
TRAP*5( 104405) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



TRAP-»6( 104406) GET SOFT-SWR SETTING 



TRAP-^7( 104407) 
TRAP*10(10A410) 
TRAP+n (104411) 
TRAP+12(104412) 



TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
SAVE R0-R5 ROUTINE 



TRAP*1 3(104413) RESTORE R0-R5 ROUTINE 
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.sbttl power down and up routines 



.■POWER DOWN ROUTINE 

05CT3^ 012757 0^027t 00002^ tPWRDN: MO; *$lLLUP.a*PWRVEC 

C30U0 012737 000340 000026 MOV #340.a*PWRVFC»2 

030U6 0100^6 MOV RO.-(SP) 

03C1S0 010146 MOV RI.-(SP) 

030152 010246 MOV R2.-(SP) 

050154 010546 MOV R5.-(SP) 

050156 010446 MOV R4.-(SP) 

05C160 010546 MOV R5.-(SP) 

050162 017746 150766 MOV aSWR,-(SP) 

050166 010657 050502 MOV SP.$SAVR6 

050172 012757 050204 000024 MOV #$PWRUP.a#PWRVEC 

U 50200 000000 HALT 

030202 000776 BR .-2 



;SET FOR FAST uP 
PR10:7 

PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R5 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH aSWR ON STACK 
SAVE SP 

.-SET UP VECTOR 
;HANG UP 











* • 

.•POWER 


UP ROUTINE 




050204 


012757 


050276 


000024 


SPWRUP: 


MOV 


*$ILLUP.a#PWRVEC . 


;SET FOR FAST DOWN 


050^1 <f 


0^ 5fUt 


05030^ 






MOV 


$SAVR6.SP 


GET SP 


050216 


005037 


050502 






CLR 


$SAVR6 


WAIT LOOP FOR THE TTY 


050222 


005257 


050302 




1$: 


INC 


$SAVR6 


•WAIT FOR THE INC 


030226 


001575 








BNE 


IS 


■OF WORD 


050250 


012677 


150720 






MOV 


(SP)+,aswR 


•POP STACK INTO aSWR 


050254 


012605 








MOV 


(SPJ+.R5 


•POP STACK INTO R5 


050256 


012604 








MOV 


(SP)+.R4 


■POP STACK INTO R4 


030240 


012605 








MOV 


(SP)+.R5 


■POP STACK INTO R5 


050242 


012602 








MOV 


(SP)+.R2 


■POP STACK INTO R2 


050244 


012601 








MOV 


(SP)+.R1 


■POP STACK INTO R1 


050246 


012600 








MOV 


(SP)*.RO 


•POP STACK INTO RO 


050250 


012737 


050152 


000024 




MOV 


#$PWRDN,a#PWRVEC 


•;SET UP THE POWER DOW^J VECTOR 


050256 


012737 


000540 


000026 




MOV 


*340,a*PWRVEC+2 ; 


;PR10:7 


050264 


104401 








TYPE 




■REPORi THE POWER FAILURE 


030266 


030304 






$PWRMG: 


.WORD 


tPOWER ; 


■POWER FAIL MESSAGE POINTER 


030270 


012716 








MOV 


(PC)+.(SP) 


•RESTART AT ST5 


030272 


0150b6 






$PWRAD : 


.WORD 


ST5 


■RESTART ADDRESS 


030274 


000002 








RTI 






050276 


000000 






SJLLUP: 


HALT 




•THE POWER UP SEQUENCE WAS STARTED 


050500 


000776 








BR 


.-2 )' 


• BEFORE THE POWER DOWN WAS COMPLE 


C^0502 


000000 






$SAVR6: 


0 




■PUT THE SP HERE 


/ 030504 


200 


042 


1?0 


SPOWER: 


.ASCIZ 


<'CRlF>/"power up V 










.EVEN 
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9 

45 



3 

r 

1 

t 
7 

8 

9 

10 
11 

w 

u 

15 
16 
17 
18 
19 
?0 
?1 
2? 

?4 
?5 
26 
27 
28 
29 
30 
3? 



34 

35 
36 
37 
38 
39 
40 
43 



030330 
030331 
030332 
030333 
030334 
030335 
030336 
030337 



44 
45 
46 
47 
48 
49 



030340 
030341 
030342 
030343 
030344 
030345 
030346 
030347 



.SaTFL SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981 



NEW DRIVE TYPE ID FOR RM02 
10-AUG-77 ••••••••••• 

10-MAR-78 THE SC, SC5 CHANGES 
NEW DRIVE TYPE ID FOR RM05 
1980 ****••••••* 



COPYRIGHT (C) 1977.1981 
DIGITAL EQUIPMENT CORP. 
nAYNARD. MA 01754 
AUTHOR(S): JIM LACEY/CHUCIC HESS 

REVISED BY: MIKE LEAVITT 11-APR-80. 27-MAR-81 



.-STORAGE FOR RMDS. RMER1 , RMER2. AND RMMR2 ON AN ERROR 
;RMERRS - RMDS 
;RMERRS+2 = RMER1 
;RMERRS*4 - RMER2 
;RMERRS+6 - RMMR2 



030320 000000 000000 000000 RMERRS: .WORD 0.0.0.0 



;TA8Lc OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
;DRVACT-0 IF DRIVE IS IDLE 
;DRVACT>0 IF DRIVE IS ACTIVE WITH A COMMAND 

;DRVACT<0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 



000 
000 
000 
000 
000 
000 
000 
000 



DRVACT: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



.•TABLE OF DRIVE STATUS INDICATORS (DRVSTA 8 BYTES) 

;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
;DRVSTA>0 IF DRIVE IS ONLINE 
;DRVSTA<0 IF DRIVE IS UNSAFE 



000 
COO 
000 
000 
000 
000 
000 
000 



DRVSTA: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 



DRIVE 0 
DRIVE 1 
DRIVE 2 

DRIVE 3 



DRIVE 
DRIVE 
DRIVE 
DRIVE 



.•TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 

;DRVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA 0, ALSO) 
;DRVTyP-7 IF DRIVE IS RM05 ••**•• 
iDRV^YP 5 IF DRIVE IS RM02 •••••• 

;DRVTYP=4 IF DRIVE IS RM03 



^•^.b: t^MCS'?/^ FORMATTEt^ »WC«0 V(K.OO 
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50 
51 

52 030350 
55 030351 
030352 
030353 
030354 
030355 
030356 
030357 

56 
37 
58 
59 

60 

61 030360 
64 030361 
030362 
030363 
G 30 364 
050365 
030366 
030367 

65 
66 
67 
68 
69 

70 030370 
73 030371 
030372 
030373 
030374 
030375 
030376 
030377 

74 
75 
76 
77 
78 

79 030400 

80 

81 

82 

83 

84 

85 

86 

87 030402 

88 

89 

90 

91 

92 

93 030404 
94 



;DRVTVP=-1 IF NOT RM05/3/2 



000 
000 
000 
000 
000 
000 
000 
000 



000 

000 
000 
000 
000 
000 
000 
000 



000 
000 
000 
000 
000 
000 
000 
000 



000000 



000000 



000 



DRVTYP: .8YTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 

.BYTE 0 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



.•TABLE OF DUAL PORT INITIALIZATION INDICATORS 

;DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE ORIVf 
;DPINT<0 IF INITIALIZATION IS IN PROGRESS 



DPINT: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 



DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



0 
1 
2 
3 
4 
5 
6 
7 



; TABLE OF PENDING DUAL PORT REQUESTS 

;DPRQS-0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
;DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 



DPRQS: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 



DRIVE 0 
DRIVE 1 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



.•TRANSFER WAIT FLAG {TRNSWT=1 WORD) 

;THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
;■ W OF THE I/O OPERATION. 

TRNSWT: .WORD 0 

.•SEARCH WAIT KEYS (SRCHWT = 1 WORD) 

;THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0 
;REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
;EACH DRIVE IS ASSIGNED ONE BIT. STARTING AT BITOO FOR DRIVE 0. 

SRCHWT: .WORD 0 

;RM DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 
;ACTDRV=0 IF DRIVER IS INACTIVE 
;ACTDRV>0 IF DRIVER IS ACTIVE 

ACTDRV: .BYTE 0 
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95 
9t 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
109 



110 

112 

IK 
115 
116 
IV 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
133 



030405 



030406 
030407 
030410 
030411 
030412 
030413 
0304'' 4 
030415 



134 
135 
136 
137 
138 
139 
UO 
141 
142 
145 



030422 
030424 
C 304 26 
030430 
030432 
030434 
030436 
030440 



000 



000 
000 
000 
000 
000 
000 
000 
000 



030416 000000 



030420 \77777 



\77777 
1 77777 
\77777 
}77777 
\77777 
}77777 
■\77777 
1 77777 



030442 y77777 



;SOFruARE TIMER ROUTINE A(TIVE FLAG (ACTSTR=1 BYTE) 

;ACrSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
;ACTSTR>0 IF SOFTWARE TIMER ROUTINE IS ACTIVE 

ACTSTR: .8YTE 0 

.•UNLOAD FLAG (ULDFLG=8 BYTES) 

;ULDfLG=0 IF NO UNLOAD COMMAND 
;ULDFLG>0 IF UNLOAD COMMAND IN PROGRESS 
;ULDFLG<0 iF UNLOAD COMMAND IN WAIT QUEUE 



ULDFLG: 



.8YTE 
.BYTE 
.8YTE 
• BYT-- 
.8YTt 
. 'YTE 
.8YTE 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 



DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



.-■^AVE REGISTERS FLAG (SAVEFG "1 WORD) 

:SAVEFG <0 IF SAVE THE RH/RM REGISTERS WHEN THE 
;0PERATI0N IS COMPLETED AS PER CDP8+14). 
;SAVEF6=0 IF SAVE THE RH/RM REGISTERS, AS PER 
(DP8+14), AFTER AN ERROR. 

SAVEFG: .WORD 0 

.-SEEK FLAG (SEEKFG'I WORD) 

;SEEKFG=0 IF WHEN TH^ DISK ADDRESS ISN'T IN THE WINDOW 
;F0R A DATA TRANSFER START A SEARCH COMMAND 
;SEEKF6<0 IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
;DISREGARD THE WINDOW 



SEEKFG: .WORD 



•1 



.-TIMEOUT TABLE (TIMER-8 WORDS) 

;THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 



TIMER: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



-1 
-1 
-1 
-1 
-1 
-1 
-1 
-1 



DRIVE 0 

DRIVE 1 



DRIVE 
DRIVE 



2 
3 



DRIVE 4 
DRIVE 5 
DRIVE 6 
DRIVE 7 



;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 
;Druw<0 IF NO DATA TRANSFER UNDERWAY 

;DTUW=*N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 



DTUW: 



.WORD -1 



.•ATTENTION BITS TABLE (ATABir=8 BYTES) 

;THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
.-ATTENTION BIT ^ 



-v. t<M05/V<? FORMATTER MACRO vO^.OO 

E/DtA. PORT Rh/RM DRWER (REVr 6.5) '981 



n 9 

4.-APR-81 18:59:56 PAGE A5-^ 



U6 

K8 

150 
151 
15? 
153 
154 
135 
156 
157 
158 
159 
160 
161 
162 
163 
167 
168 
169 
UQ 
171 
172 



050444 
030445 
030446 
030447 
030450 
030451 
03C452 
030453 



001 

002 
004 
010 
020 
040 
100 
200 



030454 000003 



030456 
C30460 



1 76700 
000254 



0C0240 



030464 000005 



197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 



ATASr: .BYTE 


1 


•DRIVE 


0 


.BYTE 


2 


•DRIVE 


1 


.8VTE 


4 


■DRIVE 


2 


.8VTE 


10 


•DRIVE 


3 


• BYTE 


20 


•DRIVE 


4 


.BYTE 


40 


•DRIVE 


5 


.BYTE 


100 


; DRIVE 


6 


.BYTE 


200 


; DRIVE 


7 



.•NUMBER OF 'MASSBUS CONTROL PARITY ERRORS' 
.•CALLING IT FATAL (MCPEMX=1 WORD) 

MCPEMX: .WORD 3 



(MCPE) ALLOWED BEFORE 



.•STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM) , 
;RMVEC (THE VECTOR ADDRESS (254)). AND RMVEC+2 (THE BR LEVEL (5)), 



RMADR : 
RMVEC: 



.WORD 
.WORD 



176700 
254,5*32. 



.•MAXIMUM SEARCH FOR I/O WINDOW IS 5 SECTORS (MXWNDW 1 WORD) 
MXWNDW: .WORD 5 

.•DEFINITIONS OF THE RH/RM ADDRESS INDEXES 



173 


000000 


RMCS1 




0 


174 


000002 


RMWC 




2 


175 


000004 


RMBA 




4 


176 


000006 


RMDA 




6 


177 


000010 


RMCS2 




10 


178 


U00012 
000014 


RMDS 




12 


179 


RMER1 




14 


180 


000016 


RMAS 




16 


181 


000020 


RMLA 




20 


^82 


000022 


RMD8 




22 


"83 


000024 


RMMR1 




24 
26 


184 


000026 


RMDT 




185 


000030 


RMSN 




30 


186 


000032 


RMOF 




32 


*87 


000034 


RMDC 




34 


188 


000036 


RMHR 




36 


189 


000040 


RMMR2 




40 


190 


000042 


RMER2 




42 


191 


000044 


RMEC1 




44 


192 


000046 


RMEC2 




46 



.•CONTROL AND STATUS REGISTER (^^ (DRIVE REG. 0) 

.•WORD COUNT REGISTER (NOT A DRIVE REG) 

;UNI8US ADDRESS REGISTER (NOT A DRIVE REG) 

.•DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 5) 

; CONTROL AND STATUS REGISTER »2 (NOT A DRIVE REG) 

.•DRIVE STATUS REGISTER (DRIVE REG 1) 

.•ERROR REGISTER *1 (DRIVE REG. 2) 

.•ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 4) 

;L00K AHEAD REGISTER IDRIVE REG. 7) 

;DATA BUFFER REGISTER (NOT A DRIVE REG.) 

;MAINTAINABILI1 Y REGISTER (DRIVE REG. 3) 

;DRIVE TYPE REGISTER (DRIVE REG. 6) 

.•SERIAL NUMBER REGISTER (DRIVE REG. 10) 

.•OFFSET REGISTER (DRIVE RE^^. 11) 

.•DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 

.-DUMMY ADDRESS REGISTER (DRIVE REG. 13) 

.•MAINTENANCE REGISTER »2 

.ERROR REG'STER *2 (DRIVE REG. 15) 

;ECC POSITION REGISTER (DRIVE REG. 16) 

;ECC PATTfRN REGISTER (DRIVE REG. 17) 



.S8TTL RH/RM DRIVER INI TIAl IZATION CODE 

THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 
AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
TO THE PROPER STATE FOR EACH DRIVE. 
NOTE: THIS ROUTINE CALLS DRVINT 



CALL 



JSR 



PC.RMINIT 



CZ^MLBO RM05/3/? fQRMATTER MACRO VCK.OO 

RH/RM DRIVER IMTIALIZATION CODE 











209 








?1C 








211 








212 








213 


030466 


1 044 1 2 




214 


030470 


013746 


177776 


215 


030474 


012737 


000240 


216 030502 




036144 


217 


030506 


012701 


030320 


218 


030512 


012702 


050420 


219 


030516 


005021 




220 


030520 


020102 




221 


030522 


103775 




222 


030524 


012702 


03C442 


223 


030530 


012721 




224 


030534 


020102 




225 


030536 


101774 




226 


030540 


005037 


030340 


227 030544 


005037 


030342 


228 030550 


005037 


030344 


229 030554 


005037 


030546 


230 


030560 


01 3703 


030460 


231 


030564 


012723 


033114 


232 


030570 


013713 


030462 


233 


030574 


01 3704 


030456 


234 


030600 


012764 


000040 


235 


030606 


005001 




236 


030610 


004037 


030700 


237 


030614 


000401 




238 


030616 


000402 




239 


030620 


105061 


030340 


240 030624 


005201 




241 


030626 


042701 


1 77770 


242 


030632 


001 366 




243 


030634 


012701 


000007 
1 77776 


244 


030640 


005037 


245 


030644 


105761 


030360 


246 


030650 


001405 




247 030652 


004737 


035600 


248 


030656 


105761 


030360 


249 


C30662 


001375 




250 030664 


005301 




251 


030666 


100366 




252 


030670 


012637 


1 77776 


253 030674 


104413 




254 030676 


000207 




255 








256 








257 








258 








259 








260 








261 








262 








263 








264 
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RETURN 



1 77776 



000010 





tmf *p* 


no *i * ri nrr mhi^t 


np CTADTPD 
tSC J 1 Mn 1 1 U 


DM r KI T T • 






jMVC nU nj 




nuv 


PC .rcpi 


CAV/F TUP PDPCPKiT PRDrPCCDD CTATir, 




Mnv/ 




rUAM^F TUP DDT nor TV TD C 
LrW^VJC 1 nc rnJUni IT lU J 




J on 


pr ri ROUP 


n FAD Ai 1 DFmiP<:T OIlPllFC 
LLCMn MLL nCUUCo' uUCwCo 




MDU 

nuv 


iTRMFRRC R1 


F TDCT ADrtDFCC Tfl OP ri FADPrt 
r inil nyUnCSO lU Oc LLc«nCU 




nuv 


ir^PPIfP^ R2 


1 A^T AnnDPCC Tn rf n FAOPn 

LMO 1 Mi/ynC^d lU DC LLCMnCi/ 


1 9 • 


ri R 

L Ln 


f RI ) -f 

V n 1 / ' 1 


ri FAR 
LLC nr\ 




LI H 




ARF UF DDMP'' 

Mnt Wt L/UnIC • 




DLU 




RR I F Nin 
on i f miu 




MOW 
1 lUV 




1 A^T AriRRF^^ 


c 9 - 


' lU V 




IWI T I AI I 7F 
1 IV 1 1 i ^L 111. 




LI 1' 


R1.R2 


•DONE? 




RI 


2$ 


■LOOP IF NO 




L Ln 


DRVSTA 


■SET ALL DRIVES TO OFFLINE 




n R 


DRVSTA+2 






n R 


DRVSTA»4 






n R 

L Ln 


DRVSTA+6 






I lUV 


R«VEC,R3 .-SETUP THE RH/RM VECTOR 






*ISR,(R3)+ 






MOV 


RMVEC*2.(R3) 








RMADR.R4 


•FIRST ADDRESS OF RH/RM 






#CLR.RMCS2(R4) 


;MASS8US INIT 




n R 

L L"^ 


RI 


rSTART WITH DRIVE 0 






RO.DRVINT 


;INIT THE DRIVE 




RR 

on 


4$ 


;'DVA' NOT SET OR PARITY ERROR 




RR 


5$ 


; NORMAL RETURN 




f 1 RR 


DRVSTA(Rl) 


;SET DRIVE STATUS TO OFFLINE 


5S- 




RI 


;G0 TO NEXT DRIVE 






**C7,R1 


;MASK OUT UNUSED BITS 






3$ 


;8R IF MORE DRIVES TO GO 






*7.R1 


; START WITH DRIVE 7 




CLR 


PS 


; CLEAR THE PROCESSOR STATUS 




TSTR 


DPINT(RI) 


; WAITING FOR DRIVE TO SWITCH PORTS 




RFQ 


8$ 


;8R NOT WAITING 




ISR 


PC. SET. IE 


;SET INTERRUPT 


7$: 


TST8 


DPINT(RI) 


;DRIVE SWITCHED PORTS ? 




BNE 


7$ 


r8R IF NOT 


8S: 


DEC 


RI 


;G0 TO THE NEXT DRIVE 




BPL 


6$ 


;CHECK NEXT DRIVE 




MOV 


{SP)+.PS 


; RE STORE THE PROCESSOR STATUS 




RESREG 




;RESTORE RO - R5 




RTS 


PC 


;8YE-8YE 


.-DRIVE 


INITILIZATJON ROUTINE 





THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 
AN RM05/3/2. IF IT IS, A "T^EAD-IN PRESET" IS ISSUED AND FMT16 



IS SET 
INSURE 
DRVSTA 
CALL 



TO A "1". THEN MOL, DPR. DRY. AND VV \RE CHECKED TO 
THEY ARE ALL ON A "1". AND DEPENDING ON THEIR STATE. 
IS SET TO THE PROPER CONDITION. 

MOV #DRyNUM.R1 .-DRIVE NUMBER TO RI 

MOV RMADR.R4 ;UNI8US ADDRESS OF RH/RM (RNtS'' 



;.v - 



AI'IAt I/ATION COt£ 



B 10 

,-At;,-g' 'S.-^^rS* PAGE -S-^ 













































?t8 




























030700 


010546 






'J£*.:\T: 




R5.-(SP) 


^7^ 030702 


"05061 


050540 






CLR8 


DRVSTA(R1; 


272 050706 


■•05061 


030350 








DPVTVP(RI) 


273 030712 


105061 


030406 








ULDfLG(RI) 


274 030716 


C10164 


000010 






nuv 


R1,mCS2(R4) 


275 030722 


M2764 


000111 


000000 






•111.RMCS1 (R4) 


?76 050730 


032764 


010000 


000010 




BIT 


•8IT12.RMCS2(R4 


050756 


001 403 








6EQ 


IS 


2^8 050740 


004737 
00052s) 


035600 






jSP 


PC. SET. IE 


279 : 50744 








BP 


4$ 


280 














281 050746 


105061 


050340 




1S: 


CLR8 


DRVSTA(RI) 


282 050752 


052764 


004000 


000000 




BIT 


*eiT1''.RHCS1(R4 


?85 050760 


001512 








BEQ 


4$ 


284 C50762 


004057 


035110 






jSR 


RO.RD.RM 


285 050766 


000026 








«WT 


286 050770 


051210 








5$ 




287 050772 


012605 








MOV 


(SP)*.R5 


288 030774 


112761 


000004 


030350 




MOVB 


#4.DRVTVP(R1 ) 


.'89 031002 


C22705 


020024 






CW 


#20024, R5 


290 031006 


001451 








BEG 


2$ 


291 031010 


022705 


024024 






CMP 


*24024.R5 


292 031014 


001426 








BEQ 


2$ 


293 031016 


112761 


000005 


05C550 




M0V6 


#5.DRVTYP(R1) 


294 031024 


022705 


020025 






CMP 


#20025. R5 


295 051050 


001420 








BEQ 


2S 


296 051052 


022705 


024025 






CMP 


#24025. R5 


297 031036 


001415 








BEQ 


2S 


298 031040 


112761 


000007 


030550 




M0V8 


#7.DPVTYP(R1) 


299 051046 


022705 


020027 






CMP 


#20027, R5 


500 051052 


001407 








BEC 


2$ 


301 051054 


022705 


024027 






CMP 


#24027, R5 


502 051060 


001404 








BEQ 


2$ 


305 051062 


112761 


M7777 


030350 




M0V8 


#-1.DRVTYP(R1) 


304 031070 


000446 








BA 


4S 


305 














306 031072 


012746 


000121 




2t: 


MOV 


#121. -(SP) 


307 051076 


004057 


035270 






JSP 


RO.><RT.RM 


308 051102 


000000 








PMC SI 


509 051104 


031210 








5$ 




510 051106 


012746 


010000 






MOV 


«8]T12.-(SP) 


311 051112 


004037 


035270 






JSR 


RO.WRT.RM 


512 031116 


000032 








PMOf 


315 051120 


031210 








5S 




514 051122 


004057 


035110 






jSR 


RO.PD.RM 


515 051126 


000012 








RMDS 


516 031130 


051210 








5$ 




317 031152 


012605 








MOV 


(SP)*,R5 


318 051154 


100015 








BPL 


3$ 


319 031136 


116164 


050444 


000016 




M0V8 


ATA8IT(P1),RWAS 


520 031144 


004037 


035110 






JSR 


RO.PD.RM 


321 C31150 


000014 








RMEP1 



CALLED Br A vSR 

ERROR OCCURRED (PARITv: 

UQUmkL retlun 



SAVE R5 

start drive status as 0fhin6 
Clear the drive type if^idicator 
clear the unload flag 

SELECT A DRIVE 

DO A DRIVE CLEAR COWAND (£ SEIZE DRIVl) 
. .-NONEXISTENT DRIVE? 

GO SET "IE" WITHOUT A '^RE" 
LEAVE THIS ROUTINE 

SET DRIVE STATUS TO OFFLINE 

;S£E IF DRIVE AVAILABLE 
BR IF DRIVE NOT AVAILABLE 
READ THE DRIVE TYPE PEG. 

ERROR RETURN ADI.RESS 

PUT DRIVE TYPE IN R5 

SET RM03 INDICATOR 

SINGLE "OPT PM03 ? 

BR IF YES 

DUAL PORT RM03 ? 

Bfi IF YES 

SET RM02 INDICATOR 

SINGLE PORT RM02 ? 

BR IF SO 

DUAL PORT RM02 ? 

BR IF SO 

SET RM05 INDICATOR 
SINGLE PORT RM05 ? 
8R IF YES 
DUAL PORT RM05 ? 
BR IF YES 

SET If )ICATOP TO 'OTHER' 
EXIT 

DO A 'T^EAD-IN PRESET" 



;SET FMT16^1 



.•READ RMDS 



;AND SAVE IT IN R5 
'BR IF ATA=0 

;R4; .-CLEAR ATTENTION BH 
.-FIND OUT WHY ATA=1 



SlW ORlvER INITIALIZATION C0&£ 
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522 

32? 

524 

525 

526 

527 

328 

329 

330 

331 

332 

333 

354 

335 

356 

537 

338 

539 

340 

541 

542 

545 

344 

345 

346 

547 

548 

349 

350 

351 

552 

35 i 

354 

555 

356 

557 

358 

359 

560 

361 

562 

563 

564 

565 

566 

^7 

568 

569 

570 

571 

572 

575 

5^4 

575 

5/^6 

5.V 

578 



051152 
051154 
051156 
051160 
051166 

051170 
051172 
051176 
051200 
051206 
051210 
051212 



051214 
051220 
051226 
051254 
051256 
051240 
051244 
051246 
051252 
051256 
051260 
051264 
051266 
051272 
051274 
051300 
051502 
051506 
031510 
051514 
051316 
031 322 
051526 
051550 
051556 
051540 
051546 
031552 
051554 
051560 
051562 
051570 
051572 



0512^0 
006126 
100004 
112761 
000407 

005105 
042705 
001005 
112761 
005720 
012605 
000200 



01 5746 
015737 
112757 
104412 
011002 
005062 
111201 
015704 
105761 
005014 
105761 
001056 
105761 
001042 
004037 
000454 
105761 
003445 
105761 
001051 
010164 
004057 
000460 
122762 
001005 
112761 
105761 
001043 
004757 
000440 
012762 
000454 
004757 



Mim 050540 



167077 

000001 05C540 



1 7777t 
050462 
000001 



000016 

050456 
050540 

050406 

030560 

050700 
050540 
050370 
000010 

000105 

1 77777 
050550 

051506 

120000 

C 52564 



5S: 



4$: 

5$: 



5t 

m. 

BPL 

HO^ 

BR 

COM 
BIC 
6Ne 
M0V8 

TST 

nov 

R7S 



5f 

#-1.0RVSTA(R1) 
4$ 



R5 

••C<8IT12.8IT08:8I 
4$ 

#1.DRVSTA(R1) 
(R0)» 
CSP)*.R5 
RO 



IS IT LMSAff 
8R IF NOT 

SET UNSAFE INDICATOR 
EXIT 



CHECK MOL. DPR, DRY. AND 
"T07J8IT06>.R5 

8R IF MOL, DPR, DRY, OR VV IS CLEAR 
SET DRIVE STATUS TO ONLINE 
STEP OVER THE ERROR RETURN 
RESTORE R5 
EXIT 



.-REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
;CALL 



177776 
050404 



RM05; 



000002 
030406 

000016 



21: 

5f: 
4$: 



JSR 

PNTADR 

RETURNI 

RETJRN2 



MOV 

MOV 

M0V8 

SAVRE6 

MOV 

CLR 

M0V8 

MOV 

TST8 

BGT 

TST8 

BNE 

TST8 

BNE 

JSR 

BR 

TSTB 

BLE 

TST8 

BNE 

MOV 

JSR 

BR 

CMP8 

BNE 

M0V8 

TST8 

BNE 

JSR 

BR 

MOV 

BR 

JSR 



R0.RM05 



PS,-(SP) 

RMVEC*2,PS 

#1.ACTDRV 

(R0).R2 

16(R2) 

(R2).R1 

RMADR,R4 

DRVSTA<R1) 

1$ 

ULDFLG(RI) 
5S 

DPINT(Rl) 
5$ 

RO.DRVINT 
4S 

DRVSTA(R1 ) 
6S 

DPRQS(RI) 
5$ 

R1 .RMCS2(R4J 

RO.DRVQUE 

9$ 

#105.2(R2) 
2S 

#-1,ULDFLG(R1 
DRVACKRI ) 
8S 

PC. OPT 
8$ 

#8IT^5.BIT15. 
8S 

PC.CI7 



CALL THE RM05 DRIVER 

ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
RETURN HERE IF QUEUE IS FULL 
RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
IS AN ERROR CONDITION 

SAVE THE CALLING STATUS 
DON'T ALLOW ANY R« INTERRUPTS 
SET "ACTIVE DRIVER" FLAG 
SAVE RO - R5 

PICKUP THE DRIVE PARAMETER BLOCK POINTFR 
CLEAR THE STATUS/ERROR INDICATOR 
PI CKIP THE DRIVE NUMBER 
UNI8US ADDRESS OF RMCS1 
CHECK DRIVES STATUS 
8R IF ONLINE 

UNLOAD COMMAND IN QUEUE? 
8R IF YES 

TRYING 10 INIT THE DRIVE 
8R IF YES 
GO INI'. THE DRIVE 
ERROR RETURN 
IS DRIVE STATUS ONLINE? 
8R IF NOT 

OUTSTANDING PORT REQUEST FOR THE DfilVF ^ 
8R IF YES 
SELECT THE DRIVE 
PUT THIS REQUEST IN QUEUE 
QUEUE IS FULL 

IS THIS REQ. FOR AN UNLOAD? 
8R IF NO 

) .-SET THE 'UNLOAD IN QUEUE" FLAG 
IS THIS DRIVE ACTIVE? 
BR IF YES 
CALL THE OPTIMIZER 

16(R2) .-SET THE 'UNLOAD IN QUEUE" ERROR ^cAG 

.•Exn 

.•GO HANDLE THE PARITY ERROR 



f** DRUER IM^'ALIZA':ON 'ODE 
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579 
580 
581 

582 

585 

584 

58S 

386 

587 

588 

389 

390 

391 

392 

595 

394 

395 

396 

397 

398 

399 

<.00 

401 

402 

403 

404 

405 

406 

407 

408 

409 

41U 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

457 

438 

439 

440 

441 

442 

443 



051376 
05U00 
051404 

031406 
031412 
031414 
031420 
031422 
031426 
031430 
031436 
031442 
031444 
031452 
031454 
031462 
051464 
031466 
031470 
C51472 
031474 
031500 
031504 



031506 
031510 
031514 
031522 
031526 
031532 
031534 
031556 
031 542 
031550 
031556 
031 560 
031564 
031566 
031572 
031600 
031604 
031606 
031614 
031616 
031616 
031624 
031626 
031632 
031634 
031640 
C 31 642 



000451 
0C4037 
000431 

032714 
001023 
004737 
000420 
105761 
002412 
012762 
105761 
001007 
012762 
000405 
012762 
104415 
005720 
000401 
104413 
005720 
105037 
012637 
000200 



104412 
013746 
146137 
105061 
004737 

005702 
001466 
010164 
012764 
032764 
001442 
105761 
003014 
004737 
012762 
105761 
10004 7 
012762 
000443 

122762 
002403 
004737 
000434 
005737 
002006 
005737 



C 36242 

000100 

035600 

030340 

140000 
030350 

100002 

110000 



030404 
1 77776 



1 7777b 
030444 
030370 
036316 



000010 
0001 1 1 
004000 

030340 

036340 
140000 
030340 

110000 



000150 
032150 
030442 

050420 



5S: 



6S: 



000016 

000016 
000016 



7$: 
8S: 



9$: 
10$: 



9R 

BR 

91 T 

BNE 

JSR 

BR 

TST8 

BLT 

MOV 

TST8 

BME 

WV 

BR 

MOV 

RESREG 

TST 
BR 

RESREG 

TS'' 

CLR8 

MOV 

RTS 



8S 

RC.DRVQUE 
9S 

«eiT06.(R4) 
8S 

PC. SET. IE 
8S 

DPVbTACRI) 
7S 

*8iT151BIT14. 

DRVTYP(RI) 

8S 

*8IT15.BIT01. 
BS 

*8IT15.BIT12. 

(RO)* 
10$ 

(RO)* 
ACTDRV 
(SP)*.PS 
RO 



PUT REQUEST IN QUEUE 
QUEUE IS FULL 
IE BIT SET ? 
VES 

SET THE INTERRUPT 
RETURN 

SEE IF DRIVE OFFLINE OR UNSAFE 
8R IF UNSAFE 
16(R2) ;SPT OFFLINE ERROR INDICATOR 
;SEE IF OFFLINE OR NONEXISTENT 
;8R IF OFFLINE 
16{R2) ; REPORT DRIVE NONEXISTENT 

;G0 TO EXIT 
16(R2) .-DRIVE IS UNSAFE 

RESTORE RO - R5 
SETUP FOR NORMAL RETURN 
FINISH UP, THEN EXIT 
RESTORE RO - R5 
CORRECT THE RETURN ADDRESS 
CLEAR "ACTIVE DRIVER" FLAG 
RETURN 'T>S" TO USER LEVEL 
RETURN TO CALLER 



OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 



CALL 



OPT: 



030402 



000000 
000000 



000016 
000016 
000002 



IS: 



2S: 



3$: 



MOV 
jSR 

SAVREG 

MOV 

BIC8 

CLR8 

JSR 

TST 

BEQ 

MOV 

MOV 

BIT 

BEO 

TST8 

8GT 

JSR 

MOV 

TST8 

BPL 

MOV 

BR 

CMP8 

BLT 

JSR 

BR 

TST 

BGE 

TST 



XfDRVNUM.RI 
PC.OP^ 



.•DRIVE NUMBER TO R1 
.•SETUP A COMMAND 



.•SAVE RO - R5 
PS.-(SP) .•SAVE PROC. STATUS 

ATABITCRD.SRCHWT ; CLEAR LA SEACH FLAG 



DPRQS(RI) 
PC.GETREO 
R2 
7$ 

R1,RMCS2{R4) 
*in.RMCS1(R4) 
*8IT11.RMCS1(R4) 
5$ 

DRVSTA(RI) 
2$ 

PC.POPQUE 



;RESET THE PORT REO FLAG •••• 
:GET "DPS" POINTER OF REQUEST 
IS THERE A REQUEST IN QUEUE? 
rN0~8R TO EXIT 

;LOAD THE DRIVE ADDRESS ••••••• 

; CLEAR THE DRIVE 

;DVA SET ? J 
TO PORT REQUEST .IF NOT 
IS DRIVE ONLINE? 
;VES 

;N0— REMOVE REQUEST FROM QUEUE 
*8JT15!BIT14,16(R2) ;SET OFFLINE STATUS/ERROR INDICATOR 
DRVSTA(RI) ;JS DRIVE UNSAFE ? 

8$ ;8R TO EXIT IF NOT 

*8IT15:BIT12.16(R2) .-set UNSAFE STATUS/ERROR INDICATOR 
8S ;8R TO EXIT 



*150.2(R2) 
3$ 

PC.CI4 
8( 

DTUU 
4S 

SEEKFG 



IS THE REQUEST FOR I/O? 
VES 

CALL THE COMMAND INITIATOR 
8R TO EXIT 

DATA TRANSFER UNDERWAY? 
YES— GO START A SEARCH 
DO IMPLIED SEEKS? 



c'»i-E«» imtia,i/at:on code 

^*.<. 031 646 100005 

'.^.S 031650 00A737 031 734 

^46 031654 000423 

447 03^656 004737 032042 

448 031662 000420 

449 031664 112761 ^77777 C 30370 

450 031672 010103 

451 031674 006303 

452 031676 012763 035230 030422 

453 031704 000402 

454 031706 004737 032564 
435 031712 0327U 000100 

456 031716 001002 

457 031720 004737 035600 

458 031724 012637 177776 

459 031730 104413 

460 031732 000207 
461 

462 
465 
464 
465 
466 
467 
468 
469 
470 
471 

472 

47 3 0 31754 004 73 7 0 3654C 

474 031740 010237 030400 

4 7^> 031744 010203 

476 031746 013704 030456 

477 031752 010164 000010 

478 031756 062703 000004 

479 031762 062704 000002 

480 031766 012324 

481 C31 770 012324 

482 031772 012346 

A83 051774 004037 035270 

484 032000 000006 

485 052002 052564 

486 052004 012546 

487 052006 004037 035270 

488 052012 000034 

489 052014 052564 

490 032016 016246 000002 

491 032022 004037 035270 

492 032026 000000 
495 032030 032564 

494 052052 010157 050442 

495 032036 000137 032526 
496 

497 032042 013704 030456 

498 052046 010164 000010 

499 052052 0^6246 000012 
5:>0 052056 004057 055270 
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4S 

pc.cr 

8S 

«»C.CI3 

es 

#-1.DPR0S(R1) 
R1,R5 
HI 

#15000..T]MER(R3) 
7$ 

PC.CI7 

«eiro6,(P4) 

8$ 

PC. SET. IE 
(SP)*.PS 

PC 



:N0. DO A SEARCH 
.-START A DATA TRANSFER 

START A SEARCH 
GO TO THE EXIT 
SET PORT REQUEST INDICATOR 
SET UP TO ADDRESS WORDS 
CONVERT TO WORD INDEX 

.-START 15. SECOND TIMfR 

EXIT 

PROCESS THE 
SEE IF ME' 
BR IF SET 

SET "IE" WITHOUT A "TRE 
RESTORE PROC. STATUS 
RESTORE RO - R5 



PARITY ERROR 
ALREADY SET 



TOR 



#DRVNUM.R^ 
#DP8.R2 

PC.CI? 



PC.POPOUE 

R2.TRNSWT 

R2.R3 

Rf^DR.RA 

R1.RMCS2(R4) 

«4.R3 

»2,R4 

(R5)*.(R4)* 
(R3)+.(R4)+ 
(R3)*.-(SP) 
RO.WRT.RM 



(R3J*-.-fSP) 
RO.WRT.R!^ 



DRIVE NJMBER 
ADDRESS OF DP8 
CI?= Cn.Cl3. OR CI4 
WHERE : 

CI1-DATA TRANSFER 

CI3=SEARCH REQUESTED BY DATA XFER 

CI4=N0T DATA TRANSFER 

REMOVE REQUEST FROM "DRIVES WAIT" QUE UE 

PUT REQ. IN TRANSFER WAIT QUEUE 

DPS ADDRESS TO R3 

RMCS1 ADDRESS 

SELECT DRIVE 

DESIRED WORD COUNT 

RMWC ADDRESS 

LOAD WORD COUNT 

LOAD BUFFER ADDRESS 

LOAD SECTOR AND TRACK 

CALL THE LOADCWRITEJ ROUTINE 

INDEX OF REGISTER TO LOAD 

ERROR RETURN ADDRESS 

LOAD CYLINDER ADDRESS 



2(R2>. -(SP) 
RO.WRT.RM 



;l0AD "COMMAND+GO". "A17&A^6". "f-H. 



R1 .DTUW 

CIS 

RMADR.R4 
R1.RMCS2fR4) 
i2(R2).-(SP) 
RO.WRT.RM 



.-SET "DATA TRANSFER UNDERWAY" 



RMCS"" ADDRESS 
SELECT DRIVE 

DESIRED CYLINDER ADDRESS 



501 
502 
503 
504 

505 
506 
507 
508 
509 
510 

sn 

513 
5U 
515 
516 
517 

518 
519 
520 
521 
522 
525 
524 
525 
526 
527 
528 
529 
550 
551 
552 
533 
554 
535 
556 
537 
558 
559 
540 
541 
542 
543 

544 
545 
546 
54-' 
548 
549 
550 
551 
552 
553 
554 
^55 



052062 
032064 
032066 
032072 
032076 
032100 
032104 
032106 
052114 
052120 
052122 
052^24 
052150 
0321 34 
052156 
052U0 
052146 

032150 
C52154 
032160 
032164 
032170 
032172 
032176 
032202 
052204 
052206 
052210 
032214 
032216 
032222 
032226 
052250 
052232 
052234 
032240 
032242 
052246 
052250 
052252 
052256 
032262 
052264 
052266 
052270 
052274 
032276 
032502 
052504 
032310 
032512 
032320 
052524 

032532 
:32554 

: 52 540 



000034 
032564 
1 '6203 
163703 
002002 
062703 
010346 
116266 
004037 
000006 
052564 
012746 
004057 
000000 
C52564 
156157 
000567 

015704 
0^0164 
116203 
122703 
001007 
016246 
C04057 
000006 
052564 
000405 
122703 
001007 
016246 
004057 
000054 
052564 
000546 
122703 
001013 
004037 
000052 
052564 
116216 
00403' 
000032 
032564 
000530 
122703 
001525 
122703 
001522 
122703 
001016 
112761 
105061 
112761 
010346 
004037 
000000 



C0001C 
030464 

000040 

000011 o:k)ooi 

035270 



000131 
035270 



0304,4 0504C2 



030456 '14; 

0C0010 

000002 

000131 

OQOOlO 
035270 



000105 i»: 

000012 21: 
035270 



000115 5$: 
035110 



000001 
035270 



000107 
000117 
000103 



OOOQOl 
030540 
00000^ 

05527C 



030350 
050406 



CI7 

SU9 
BGE 
ADD 
«0V 

NCV9 

jSR 

CI7 
•WV 
jSR 
R^CSI 

CJ7 

BIS8 

BR 

MO^ 

•HOV 

M0V8 

C«P8 

BNE 

MOV 

jSP 

RMDA 

CI7 

BR 

CMP8 

BNE 

MOV 

jSR 

RMDC 

CI7 

BR 

CMPe 

BNE 

JSR 

km 

CI7 

M0V8 

JSR 

RMOF 

CI7 

8R 

6E0 

Cf1P8 

BEO 

BNE 

wove 

CLR8 
M0V8 
MCV 
SR 
RM^ - ' 
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10(R2).R5 
MNh;N0U.R5 
1$ 

#52.. R5 
R5.-(SP) 
11(R2).1(SP) 
RO.WR^.RM 



.•PICKUP SECTOR ADDRESS 

;8AC<tUP BV MAX. SEARCH FOR I/O riJNDOW 



COMBINE THE ADJUSTED SECTOR wFh 

THE DESIRED TRACK 

LOAD DESIRED TRACK S SECTOR 



•151. -(SP) 
RO.uR^.RM 



.-START A SEARCH 



ATA8n<R1).SRCHWT 

CI5 

RMADR.R4 
Rl .RMCS2(R4) 
2(R2).R3 
#131. R3 
IS 

'0(R2>.-<SP) 
RO.WRT.RM 



;SET "SEARCH WAIT" <Fv 



RMCS1 ADDRESS 
SELECT DRIVE 

PICKUP THE REQUESTED CCWND 
IS IT A SEARCH COMMAND? 
bR IF NO 

..OAD DESIRED TRACK & SECTOR 



2$ 

#105. R3 
3$ 

12iR2).-(SP) 
RO.WRT.RM 



GO LOAD CYLINDER 

IS IT A SEEK COMMAND 

8R IF NO 

LOAD DESIRED CYLINDER 



CI6 

#115. R3 
4S 

RO.RD.RM 



HR2).;SP) 
RO.WRT.RM 



IS IT AN "OFFSET" COMMAND? 
8R IF NO 

MERGE THE OFFSET VALUE INTO RMOF 
BUT DON'T CHANGE THE UPPER 

;8YTE WHEN LOADING THE 
;REGISTER (RMOF) 



CI6 

#107, R3 

ri6 

#117. R3 

f 16 

#105. R5 
5$ 

#1,DRVACT(R1) 

DRVSTA(RI) 
#1.JLDfLG(Ri) 
R5.-(SP> 
RO.WRT.RM 



command: 



START THE COMMAND 
IT A "TRECALIBRATE 
VES 

A RETURN TO CENTER? 
YES 

AN "UNLOAD" COMMAND? 
NO 



GO 
IS 
8R 
IS 
8R 
IS 
BR 

SET THE DRIVE ACTIVE INDICATOR 
PUT DRIVE STATUS TO OFFLINE 
SET "UNLOAD !N PROGRESS" ^lAG 
START THE 'IJNLOAD" COMMAND 



IF 
IT 
IF 
IT 
IF 



5^8 
SS<3 

56^ 
562 
56? 
564 
565 
566 
567 
568 
5o9 
5^0 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 

585 
S86 
587 
588 
58V 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
613 
617 
^'8 
61Q 



052542 
032344 
032346 
032352 
032354 
C 32 360 
C32362 
D32364 
032372 
032376 
032400 
032402 
032404 
032410 
052412 

052416 
032424 
032430 
032454 
032436 
032440 
032442 
032446 
032450 
052456 
032460 
032464 
032466 
032470 
032474 
032476 
032500 
032504 
032512 
032516 
032520 
032524 

032526 
032530 
C32536 
032540 
03?546 

032550 
032552 
032556 
032560 
032562 

032564 
032572 
032574 
032576 
032600 



032564 
000207 
122703 
001014 
004037 
000032 
032564 
116266 
004037 
000032 
032564 
000456 
122703 
001023 
016203 

116237 
116205 
004037 
000000 
032564 
012623 
023705 
001414 
062737 
000764 
122703 
001405 
010346 
004037 
000000 
032564 
004737 
052762 
005737 
100002 
004737 
000207 

006301 
012761 
006201 
112761 
000207 

010346 
004037 
000000 
032564 
000761 

032764 
005702 
001001 
000207 
012762 



000-«.3 
035110 



00000' OCOOD^ 
0352 '0 



000141 
000006 

000010 032434 

000011 

035110 



032434 

000002 052434 
000145 

035270 



036340 

000200 000016 
030416 

035462 



023420 030422 

000001 03033C 

0352^0 

CI 0000 JOOCO 



■S: 



tl: 



8S: 
9$: 



10$: 

r$: 

12$: 

M$: 

CI5: 

rit: 



'J7 
1$: 



I ? 
fih 

9NE 

JSQ 

RWOF 

CI7 

MOvB 

jSR 

RMOF 

:i7 

BR 
BNE 

MOV 

M0V8 

M0V8 

JSR 

RMCS1 

CI7 

MOV 

CMP 

BEQ 

ADO 

BR 

BEQ 
MOV 

JSR 

WCS1 

CI7 
JSR 
BIS 

rsT 
BPl 
jVi 
RTS 

ASt 

ASR 
M0V8 

Rrs 

MOV 

JSR 
RMCS1 
Ci7 
BR 

BIT 
TS^ 
BNE 

RTS 
MOV 



G 10 



PC 

#U5.R5 
6$ 

RO.RD.RM 



RE TORN TO USER 

IS IT A "SET FORMAT" COMMAND? 
BR IF NO 

READ THE OFFSET REGISTER 



1(R2).HSP) .-COMBINE ■TMM6"/?CI". AND "^^Cl" 

RO.WRT.RM .-LOAD •TMT16", 'tCI". AND/OR "H(]". 



'2% 

#141 .R3 
10$ 

6(R2),R5 

10(R2).9$ 
11 (R2).R5 
RO.RD.RM 



f5Pw.(R3)* 

9$.R5 

'2$ 

#2,9$ 

8$ 

#145. R3 
V$ 

ft3.-(SP) 
RO.WRT.RM 



JS IT A "GET REGISTER" COMMAND? 
BR IF NO 

POINTS TO 1ST ADDRESS OF WHERE 

TO PUT THE REGISTER(S) 

INIT. THE INDEX FOP THE FIRST REG. 

INDEX OF LAST REG. TO MOVE 

READ RH/RM REGISTER 

INDEX OF REG. TO READ 

GET THE CONTENTS OF RH/RM REG. 

LAST REG. BEEN READ? 

GET OUT IF YES 

INCREASE THE INDEX BV 2 

LOOP—MORE TO READ 

IS IT A "SELECT DRIVE" COMMAND? 

BR IF YES 

LOAD THE COMMAND 



PC.POPQUE 

#eiT07J6{R2) 

SAt/EFG 

M$ 

PC.S>/RH70 
PC 

R1 



REMOVE REQ. FROM QUEUE 
SET THE "DONE" BIT 
SAVE THE RH/RM REGISTERS^ 
BR IF NO 

YES— GO SAVE THE REGISTERS 
RETURN TO USER 



.•START 10. SECOND W^ER 



#10000.. TIMER(Ri; 
R1 

#1.DRVACT(R1 ) .-SET ThE DRIVE ACTIVE 
PC .-RETURN TO THE USER 



R3.-(5P) 
RO.WRT.RM 



.-LOAD THE COMMAND 



CJ5 

#8ri2.RMCS2(R^) .-DRIVE NON-EXISTENT ? 

R2 .-ANYTHING IN QUEUE ? 

2$ ;BR If QUEUE IS THERE 

PC .OTHERWISE EXIT 

«er''5.bIT-\i6(R2) .-SET 'PARITY" ERROR INLI.At 



e24 

628 
6i9 
630 
'.51 
63? 
656 
657 
633 
639 
640 
6A1 
6A2 
643 
64A 
645 
646 
647 
648 
649 
650 
651 
(C52 
653 
654 
655 
656 
657 
658 
662 
663 
664 
665 
fj66 
667 
668 
669 
670 
674 
675 
676 
677 
678 
679 
680 
681 
682 
685 
684 
685 
686 
68 7 
^88 
'ft- 



032606 
032612 
C32616 
032620 
032622 
032626 
032632 
032636 
032642 
032646 
032650 
032654 
032662 

032o64 
032666 
032670 
032672 

032676 
C32700 
032704 
032706 
052712 
052716 
052720 
052724 
052726 
032730 
032736 
052740 
052746 
032750 
032756 
032764 
032770 
052774 
055000 
055002 
055010 
033014 
035020 
C55026 
055050 
055034 
053040 
055042 
033050 
0330t)4 
033060 
035066 
055070 
033074 
053100 
033104 
033110 
033112 



012746 
004037 
000000 
032664 
004737 
105061 
105061 
105061 
020237 
001005 
005037 
012737 
000207 

104412 
005001 
005003 
105761 

001003 
105761 
001445 
015702 
020157 
001402 
004757 
005702 
001413 
052764 
00U04 
012762 
000403 
012762 
012763 
105061 
105061 
020137 
001005 
012737 
005057 
105061 
052764 
005201 
062705 
042701 
001514 
012757 
005057 
004737 
012764 
000406 
004737 
105061 
105061 
004737 

104413 

000207 



C0C1 1 ' 
C 35270 



056222 
050370 
030406 
030330 
030400 

030400 
1 77777 



030330 

030370 

030400 
030442 

0565^6 

010000 

100002 

102000 
177777 
030530 
030370 
030442 

177 m 
050400 
050406 
010000 

000002 
W7770 

177777 
050400 
036144 
000040 

056222 
050540 
030350 
035600 



030442 



00001 0 

000016 

000016 
030422 



050442 
000010 

030442 
0000^0 



H 10 



;1'D A "OfilJl CLtAf,' 



ULDfLGCRD 
DRVACKRI ) 
ft2.^«NStfT 
2$ 

TRNSWT 
,DTUW 

PC 



R1 
R3 

DRVACT(R1) 
2S 

DPRQS(RI) 
6S 

TRNSWT.R2 

RI.DTUW 

5S 

PC.GETREQ 

R2 

5$ 

*8IT12.RMCS2( 
A$ 

ffSJ'lS.BITOI . 
5$ 

#8IT'5:81T10. 
*-1.TII«IER(R5) 

DRVACTCRi) 
DPRQS(RI) 
R1,DTUW 
6$ 

#-1.DTUW 

TRNSWT 
ULDFLG(Rl) 
*8IT12.RMCS2( 
R1 

<r2.R5 

*''C7.R1 

IS 

,DTUW 
TRNSUT 

PC.CLRQUE 

*CLR.RMCS2{R4 

8$ 

PCEMPTYQ 
DRVSTA(RI) 
ORvTyp(Rl; 
PC. SET. IF 

PC 



EMPTY THE QUEUE 
CLEAR THE PORT REQUEST f LAG 
CLEAR THE UNLOAD IN QUEuE f 1 AG 
DRIVE IS IDLE 

If THIS DRIVE HAD AN I/O REOUcST 
IN PROGRESS CI EAR AlL Of THE FLAGS 



.-SAVE RO - R5 



.•DRIVE ACTIVE? 
;8R IF IN ACTIVE 
;P0RT REQUEST 
;8R IF NOT 

.-GET THE "TRANSFER WAIT" QUEUE 

.DID THIS DRIVE HAVE AN I/O IN PROGRESS? 

;8R IF YES 

.-GET THE DP8 POINTER 
.•QUEUE ENTRY FOR DRIVE ? 
;8R If NOT 
R4) ;'NED' SET ? 

;8R IF NOT 

16CR2) .-SET 'DRIVE NON-EXISTENT' INDICATOR 

.•CONTINUE 

16<R2) .-SET "MON-CLEARABLE PARITY" ERROR INDICATOR 
;STOP THE TIMER 
;SET 'DRIVE ACTIVE" TO IDLE 
.-CLEAR PORT REQUEST FLAG 
;IS THIS DRIVE SETUP FOR A TRANSFER 
;8R IF NOT 

.-RESET THE INDICATOR 
; CLEAR THE TRANSFER QUEUE 
.•CLEAR UNLOAD FLAG 
P4) .-'NED* SET ? 

;MOVE TO THE NEXT DRIVE 



8R IF MORE DRIVES 
NO DATA TRANSFERS UNDERWAY 
CLEAR THE 'TRANSfER WAIT* QUEUE 
.CLEAR ALL Of THE REQUEST QUEUES 
) ;D0 A MASS8US INIT. 
CONTINUE 

CLEAR THE DRIVE'S QUEUE 
SET DRIVE TO OFFLINE 
CLEAR THE DRIVE TYPE INDICATOR 
SET "IE" WITHOUT "TRE" 
RESTORE RO - R5 
RE TURN 



^ V 

69? 
694 
695 
696 
697 
696 
t>99 
700 
7Z^ 
"^02 
705 
704 
705 
706 
707 
708 
709 
710 
711 

712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
726 
728 
^29 
730 
731 
732 
73? 
734 
735 
736 
737 
738 
739 
740 
741 
764 
765 
766 
767 
768 
769 
770 
771 
7 '2 

'73 



immalIzation code 



4.APj,-81 '9: 53: St 



I 

PAGE 



10 
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033114 
033122 
033124 
0331 30 
033134 
033136 
033142 
035146 
033150 
053154 



033156 
033162 
033170 
033172 
033200 
033202 
033206 
033212 
033220 
033224 
033230 
033232 
033234 
033236 
033240 
033244 
033246 
033252 
033256 
033260 
033262 
033266 
033270 
033274 

033276 
033304 
033310 
033314 
033320 
033324 



033326 
033332 
033334 
033340 
033342 
033344 
033346 
C 53350 



1^2737 
104412 
013704 
013701 
002402 
004737 
004737 
104413 
105057 
000002 



105061 
012737 
006301 
012761 
006201 
01 3702 
005037 
052762 
010164 
004037 
000000 
032564 
006126 
100417 
005737 
100002 
00^737 
004737 
005702 
001403 
004737 
000207 
012714 
000207 

052762 
004737 
004737 
012714 
012714 
000207 



116403 
001014 
004037 
000000 
032664 
106126 
100405 
004037 



OOOC-Ci :5C4.<. ISR: 

030456 
030442 



033156 
033326 

030404 



030350 

^77777 030442 

U7777 OlGi.22 

030400 
030400 

000200 000016 

000010 

035110 



IS: 



M0V8 
SAVR€G 

nov 

BLT 

JSR 
JSR 

RfSREC 

CLR8 

RM 



#1.ACTDRV 

RHADR,R4 

DTUW.R1 

1S 

K.TD 

PC.SC 

ACTDRv 



.•TRANSFER DONE ROUTINE 



TD: 



030416 

035462 
0363^6 



031506 
000113 



100100 
036222 
035462 
04C'n 
000113 



000016 
035110 

036406 



1$: 



000016 3S: 



n DC 


noi/Ar T f P1 ) 

L/ft VML 1 V K 1 y 


HUV 


IP— 1 f>TllLi 




D1 


Mnu 

HUV 




ASR 


R1 


•WV 


TRNSWT.R2 






QIC 

all 










RO Pn RM 








ROL 


(SP)* 


sni 


31 


Tsr 


SAVEFG 


8PL 


1$ 


JSR 


PC,SVRh70 


.SR 


PCGETREQ 


7ST 


R2 


BEQ 


2$ 


JSR 


PCOHT 


Rib 


PC 


MOV 


#113, (R4) 


RTS 


PC 


BIS 


#81115. 8IT06. 


JSR 


PC.EMPTYQ 


JSR 


PC,SVRH7C 


MOV 


#40111.(R4; 


MOV 


#113. (R4) 


RTS 


PC 



.•SPECIAL CONDI T J ON ROUllNE 
SC: 



MQV8 
BNE 
JSR 
RMCS^ 
CIS 
R0L8 
BMI 
^SR 



RMAS(R4),R3 
2$ 

RO.RD.RM 



(SP;* 
IS 

RU.fS.SAv 



SET "ACTIVE DRIVER" FlAo 
SAVE RO - R5 
ADDRESS Of RMCS1 

GET 't)ATA TRANSFER UNDERWAY" INM A 

1^ IF NO DATA TRANSFER UNDERWAv 

CALL TRANSFER DONE 

CALL SPECIAL CONDITIONS 

RESTORE RO - R5 

CLEAR "ACTIVE DRIVER" FLAG 

RETURN 



;SET DRIVE ACTIVE INDICATOR TO IDLE 
:N0 DATA TRANSFERS UNDERWAY 

.•CANCEL TIMEOUT 

GET 'DP8" ADDRESS FROM THE 
TRANSFER WAIT QUEUE—CLEAR OUEUE 
SET DONE 

SELECT THE DRIVE 
TRANSFER ERROR ( TRE -") ? 



IS TRE-1 ? 
8R IF YES 

SAVE THE RH/RM REGISTERS? 
8R I F NO 

YES— SAVE THE REGISTERS 
GET DP8 POINTER 
ENTRY FOR DRIVE ? 
PR IF NOT 
CALL OPTIMIZER 
RE TURN 

RELEASE THE DRIVE 
RETURN 

2) ;SET DATA ERROR FLAG 

EMPTY 1HE "DRIVE'S WAIT" QUEUE 

SAVE THE RH/RM REGISTERS 

ISSUE A 'DRIVE CLEAR" 

ISSUE A RELEASE TO THE DRIVE 

RETURN 



;READ "RMAS" 

;8R IF ANY "ATA* 81 TS SET 

;READ CONTROL AND STATUS REGIS^Ef* 



IS "IE" 1? 

YES, NO DRIVES TO CHE^K 
SAVE THE ADDRESS IN 'SESrAPE 



"Z»*MLBO P<MC5/^V FORMAT 'fl 
KfH/W DRUER INITIALIZATION CODE 



?7t, 

775 

776 

777 

778 
779 

780 

781 

'82 

783 

73A 

'85 

786 

787 

788 

739 

790 

791 

792 

793 

794 

■^9') 

796 

797 

798 

799 

800 

801 

802 

803 

80<. 

805 

806 

807 

811 

812 

813 

8U 

815 

816 

817 

818 

819 

820 

821 

822 

826 

827 

828 

829 

830 

831 

832 
833 



C33354 
033356 
033362 
03336A 
033366 
035370 
033374 

033376 
033400 

033402 
033404 
033406 
033410 
033412 

033414 
033420 
C33422 
033426 
033432 
033434 
033440 
033444 
033446 
033452 
033454 
033460 
033464 

033470 
033474 
033476 
033504 
033506 
033512 
033514 
033520 
033522 

C33526 
033532 
033534 
033540 
033542 
033550 
033552 
033556 
033562 
033564 
033566 
033570 
033574 
033576 
053600 
03 3600 



104001 
004737 
000207 
005046 
110316 
012705 
005001 

050316 
001005 

005201 
106303 
001373 
005726 
000207 

105761 
001402 
0001 37 
105761 
001402 
0001 37 
105761 
003023 
105761 
003420 
004737 
004737 
004737 

105761 
003414 
032737 
001000 
013705 
000504 
105761 
001033 
004737 

105761 
001323 
105761 
100412 
032737 
001013 
012746 
004037 
000000 
034130 
011605 
004037 
104002 
000701 



C 35600 
000001 



030360 

034340 
030370 

034340 
030340 

030406 

036316 
035462 
034270 

030340 

040000 030320 

030322 

030330 

034270 

030360 

030340 

020000 030324 

000111 
035270 



^C3: 
Sr4: 

SC5: 

■•$: 

2$: 



3t: 
4$: 

5$: 



036406 
004037 C36406 



6S; 



7$: 



E«iT 

jSR 
RTS 
CLR 
MO^ 

CLR 

BIT 
BNE 

INC 

ASL8 

BNE 

rsr 

RTS 

TS'8 
BEO 

Tsre 

BEQ 
JMP 
TST8 
66T 

Tsra 

BLE 

JSP 
JSR 
JSR 

'ST8 

BLE 

BIT 

BNE 

MOV 

BR 

TST8 

8NE 

JSR 

rST8 
BNE 

Tsre 

BMI 

BIT 

BNE 

MOV 

JSR 

RMCS1 

SC8 

MOV 

JSR 

EMT 

BR 

.SR 
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S£0 0126 



1 .-REPORT AN ILLEGAL INTERRUPT 
PC. SET. IE ;SET INTERRUPT ENA8LE 

PC .-RETURN 

-(SP) .-PROCESS ALL DRIVES THAT HAVE 

R3.(SP) ;AN "ATA"=1 

•1.R3 

R1 

R3.(SP) .-A1A=1? 

SC5 .-YES 

R1 .MOVE TO THE NEXT DRIVE 
R3 

SC3 ;8R IF MORE TO CHECK? 

(SP)* .-CLEAN OFF THE STACK 

PC .-RETURN TO USER 

DPINT(RI) .-INITIALIZING THE DRIVE 

IS ;8R IF NOT 

SC13 .-PROCESS THE DRIVE 

DPRQS(R^) .-PORT REQUEST OUTSTANDING ? 

2f ;8R IF NOT 

SCI 3 .-START THE OUTSTANDING COMMAND 

DRVSTA(RI) .-CHECK THE DRIVE STATUS 

4$ .-8R IF ONLINE 

ULDFLG(RI) .-UNLOAD IN PROGRESS? 

4$ .-8R IF NOT 

PC.6ETREQ .-GET DP8 POINTER 

PC.SVRH70 .-SAVE THE RH/RM REGISTERS 

PC. SCI 2 .-SAVE RMDS. RMER1 . RMER2. AND RM^-R? 

.-ALSO DO A DRIVE INIT (DRVINT) 

DRVSTA(RI) .-DID DRIVE COME ONLINE? 

5f .-NO 
*8IT14,RMERRS ;WAS THERE AN ERROR? 

3S ;8R IF ERROR 

RMERRS*2.R5 ;YES — PICKUP RMER1 AND 

SC6A ;G0 PROCESS THE ERROR 

DRVACT(RI) .-DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 

SC6 ;8R IF EITHER 

PC. SCI 2 .-SAVE RMDS. RMER1 . RMER2. AND RMMR2 

.•ALSO DO A DRVINT 

DPINT(RI) .-TRYING TO INIT THE DRIVE ? 

SC4 ;8R IF YES. CHECK ON MORE DRIVES 

DRVSTA(R1; .-CHECK ON DRIVE'S STATUS 

6$ ;8R IF UNSAFE 
#8IT13.RMERRS*4 .-ADDRESS PLUG CHANGED ? 

7$ ;8R IF YES 

#111. -(SP) .-DRIVE CLEAR 

RO.WRT.RM .-WRITE THE COMMAND INTO RMCS1 

.-REGISTER INDEX 

-PARITY EXIT ADDREiS 

(SP;.R5 -PICKUP (RMAS) BEFORE THE ERROR CALL 

RO.ES.SAV .'SAVE THE ADDRESS IN 'SESCAPE' 

2 .-REPORT 'HE UNEXPECTED ATTENTION 
SC4 ;G0 CHECK FOR MORE ATA'S 

RO.ES.SAv .-SAVE THE ADDRESS IN 'SESCAh^E' 



851 
852 



05560A 
83^ 035606 

856 055610 

857 055612 
838 055620 
359 055622 

840 035626 

841 033652 

842 055656 
845 055642 
8'.4 055644 

845 055646 

846 035650 

847 033652 

848 033654 

849 033660 

850 033662 
055670 
053672 

855 033676 

854 033700 

855 035702 

856 055704 

857 055710 

858 055714 

859 033720 

860 033722 
861 

862 055724 
865 035726 

864 053730 

865 035752 

866 055754 

867 055742 

868 055744 

869 055750 
053752 
035754 

872 055756 
8^1 055760 

874 C55762 

875 055770 

876 033774 

877 034002 

878 034004 

879 054010 
034012 
054020 

882 034026 

883 034030 

884 034056 

885 034040 

886 034044 
887 

888 03405? 
892 034056 



870 
871 



880 
881 



104005 
000675 

006301 
012761 
006201 
004737 
010164 
000137 
004057 
000012 
0341 50 
011605 
006126 
100407 
105761 
003137 
052762 
000470 
004037 
000014 
054130 
012605 
004757 
012746 
004057 
000000 
034130 

006105 
100406 
005702 
001447 
052762 
000445 
004057 
000012 
054130 
011605 
006126 
100011 
112761 
004737 
052762 
000423 
032705 
001015 
112761 
112761 
006301 
012761 
006201 
000137 
052762 

105061 
004737 



^7?777 030«.22 

056516 
000010 
034160 
035110 



030350 

100210 000016 
055110 



055462 
0001 1 1 
055270 



SC6: 



1$: 



SC6A: 



100240 000016 
035110 -!$: 



1 77777 030340 
035462 

110000 000016 

010000 2$. 

^77777 050550 

000001 030340 

035230 030422 

035402 

100220 000C16 5$: 



030330 
036340 



SC7: 



4-APR-8' 



BR 

ASL 
NOV 
ASft 

JSR 
MOV 
JMP 
JSR 
RMOS 

see 

MOV 

ROL 

BMI 

TST8 

BGT 

BIS 

BR 

JSR 

RMER1 

see 

MOV 

JSR 

MOV 

JSR 

RMCSl 

SC8 

ROL 
BMI 

Tsr 

BEQ 

BiS 

BR 

JSR 

RMOS 

SC8 

MOV 

ROL 

BPL 

M0V8 

JSR 

BIS 

BR 

BIT 

BNE 

M0V6 

M0V8 

ASL 

MOV 

ASR 

JMP 

BIS 

CLR8 
JSR 
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SC4 
R1 

#-1,riMER(R1) 

Rl 

PC.GETREQ 
R1.RMCS2<R4> 

sen 

RO.RD.RM 



;REPOflT THE ADDRESS PLUG ('HA^G^ 
.'CHECK FOR MORE DRIVES 



SETUP TO ADDRESS WORDS 

STOP THE TIMER 

RESTORE THE DRIVE ADDRESS 

GET THE DP8 POINTER FROM THE QUEUE 

SELECT DRIVE 

PROCESS THE SEARCH 

READ THE RM'S STATUS REG. 



AND PUT IT IN R5 
WAS THERE AN ERROR? 
8R IF ERROR 
CHECK DRIVE'S STATE 
8R IF DRIVE ACTIVE WITH ORDER 

.•INFORM USER OF ERROR RECOVER COMPLETION 



(SPJ.R5 
(SP)* 
IS 

DRVACT(RI) 

SCI 

#81115. 8IT07.8IT03.16{R2) 
SC7 

RO.RD.RM .-READ ERROR REGISTER #1 



(SP)*.R5 
PC,SVRH70 
#111. -(SP) 
RO.WRT.RM 



AND SAVE IT IN R5 
SAVE RH/RM REGISTERS 
ISSUE A DRIVE CLEAR 



CONDITION 1? 



R5 
It 

R2 

SC7 

#8IT15:BIT07:8!T05.16(R2J 
SC7 

RO.RD.RM ;READ DRIVE STATUS REG. #1 



WAS 'UNSAFE' 
8R I F YE S 

ANYTHING IN QUEUE ? 
8R IF NOT 

.•INFORM USER OF ERROR 



(SP).R5 

(SP)* 

2% 

#-1.DRVSTA{Rl) 
PC,SVRH70 



#8in5!BIT12.16(R2) 



SAVE RMDS IN R5 
•tRR"=1? 

8R IF NO— UNSAFE CLEARED 
DRIVE IS UNSAFE 
SAVE RH/RM REGISTERS 



.•INFORM USER OF UNSAFE ERROR 



•WOL" = 1 ? 
8R IF YES 

ACTIVE ERROR RECOVER 
ONLINE 



*^!n2,R5 

■j-lDRVACTCRI) 
.r1 .DRVSTA(Rl) 
Rl 

#15000.,TIMER(R1) 
Rl 

SC4 

#8IT15.BIT0/'.8IT04.16(R2) ;INFORM USER OF ERROR 



.•START 15. SECOND TIMER 



DRVACT(RI) 
PC.POPOue 



.•DRIVE IS IDLE 
.•REMOVE THE QUEUE 



KMrS/l/^- fORMAT^£q MACRO ;j4.0C 4-APR-81 

t^"* D«1.E« INITIALIZATION CODE 



034062 


105761 


030406 






TST8 


8'54 034066 


003002 








BGT 


895 034070 


105061 


030406 






CLR8 


896 034074 


1 16164 


030444 


000016 




MOVB 


897 034102 


105761 


030340 






TST8 


898 034106 


100406 








SMI 


902 034110 


012746 


000111 






MOV 


903 034114 


004037 


035270 






JSR 


904 034120 


000000 








RMCS1 


905 034122 


034130 








SC8 


906 034124 


000137 


033402 




2S: 


JMP 


907 












908 034130 


105761 


030330 




SC8: 


TST8 


909 034134 


001405 








BEO 


910 03413b 


004737 


036316 






-SR 


911 034142 


004737 


032564 






JSR 


912 034146 


000402 








BR 


913 034150 








If : 




917 034150 


004737 


032606 






jSR 


918 034 154 
919 


0001 37 


033402 




2$: 


JW 


920 034160 


105761 


030406 




sen : 


TST8 


921 054164 


003402 








BLE 


922 034166 


105061 


050406 






CLR8 


923 034172 


105061 


7/^ 7 7/^ 

03033C 




1$: 


CLR8 


924 034176 


1 361 37 


'^ 7/\ y y y 

030444 


rt 7rt y rt 

030402 




BJ T8 


925 












926 034204 


001012 








BNE 


927 034206 


004737 


036340 






JSR 


928 034212 


052762 


A Art "^/^ A 

000200 


rtAAA4 Z 

000016 




BIS 


929 034220 


005737 


030416 






TST 


95U 034224 


1 00002 








8PL 


931 034226 


004757 


rt 7 c y z 

035462 






jSR 


932 034232 


4 4 z 1 ^ y 

1 16164 


A 7 A y y y 

030444 


A AAA 4 ^ 

000016 


2$: 


M0V8 


935 034240 


1461 37 


r\T f\ t y y 

030444 


rt Trt y rt ^ 

030402 




81 C8 


934 054246 


006301 








ASL 


935 034250 


012761 


4 "7 "7 "7 "7 ~7 

1 77777 


rt Trt y ** 

030422 




MOV 


956 054256 


006201 








ASR 


937 034260 


004 737 


031506 






JSR 


958 034264 


0001 37 


A 77 / A 

033402 






JMP 


939 












940 054270 


010164 


000010 




SC12: 


MOV 


941 034274 


4 y y 7 ^ 

016457 


r\ r\r\ r\ 4 ^ 

000012 


r\~7 r\'7 "irt 

030320 




MOV 


942 054502 


016457 


AAAA4 y 

000014 


rt 7 A 7 "n 

050522 




MOV 


943 054310 


016437 


Art Arty T 

000042 


rt 7rt 7 T / 

030324 




MOV 


944 0343(6 


A4 ^ y 77 

016437 


rtArt A y A 

000040 


rt 7rt 7 

030326 




MOV 


945 034324 


rtrty rt77 

004057 


A 7A7AA 

030700 






JSR 


946 034550 


000401 








BR 


947 054352 


000207 








RTS 


rty Q /\ T y "9^1 

948 034334 


005726 






4 * 

^$: 


TST 


949 034336 


000674 








BR 


950 












V5 1 Uj4j*»U 


UU63U 1 






SC 15: 


ASL 


952 034342 


012761 


}77777 


030422 




MOV 


953 034350 


006201 








ASR 


954 034352 


010164 


000010 






MOV 


955 034356 


116164 


050444 


000016 




MO 1/8 



L 10 
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ULDfLG(RI) 
IS 

ULDFLG(RI) 



ATA8IT(R1).RMAS(R4) 



UNLOAD IN PROGRESS OR OUEUf 
8R IF NOT 
CLEAR UNLOAD FLAG 



DRVSTA(RI) 
2S 

#111. -(SP) 
RO.URT.RM 



SC4 

DRVACT(RI) 
IS 

PC.GETREQ 

PC.CI7 

2S 

PC.CI7B 
SC4 



.•CLEAR ATTENTION BIT 



IS THE DRIVE UNSAFE 
8R IF IT IS 
DRIVE CLEAR COMMAND 
WRITE THE COMMAND INTO RPCi,1 
REGISTER INDEX 
PARITY EXIT ADDRESS 
CHECK FOR MORE DRIVES 

IS DRIVE IDuE? 
YES 

GET DP8 POINTER 

PROCESS THE PARITY ERROR 

CONTINUE 



.•PROCESS THE UNCORRECTABLE PARITY ERROR 
; CHECK MORE DRIVES 



ULDFLG(RI) 
IS 

ULDFLG(RI) 
DRVACT(Rl) 
ATA8IT(R1),SRCHWT 



2$ 

PC.POPQUE 
#8IT07.16(R2) 
SAVEFG 
2$ 

PC.SVRH70 

ATA8IT(R1) .RMAS(R4J 
ATA8IT(R1),SRCHWT 



R1 

#-1 .TIMER<R1) 
R1 

PC. OPT 
SC4 



'UNLOAD IN PROGRESS"? 
8R IF NO 

CLEAR UNLOAD FLAG 
SET DRIVE IDLE 

;D0ING A SEARCH OPERATION FOR 
;AN I/O COMMAND? 
8R IF YES 

REMOVE REQUEST FROM QUEUE 
SET "DONE" BIT 
SAVE THE REGISTERS? 
8R IF NO 

YES--SAVE ALL OF THE RH/RM REG'S 
.'CLEAR ATTENTION BIT 
.•CLEAR IMPLIED SEEK SET 



WORD INDEX 
STOP CLOCK 
RESTORE R1 
START A REQUEST 
CHECK FOR MORE DRIVES 



R1.RMCS2(R4) .-SELECT DRIVE 
RMDS(R4).RMERRS ;SAVE THE FOUR REGISTERS THAT 
RMER1(R4).RMERRS*2 ;W]LL TELL US SOMETHING 

RMER2(R4).RMERRS*4 
RMMR2(R4).RMERRS*6 
RO.DRVINT 
IS 
PC 

(SP)* 
SC8 



INIT. THE STATE OF THE DRIVE 

TAKE ERROR EXIT 

RETURN 

POP PC OFF OF THE STACK 
PROCESS THE PARITY ERROR 



R1 

*-1.TIMER(Rl) 
R1 

R1.RMCS2(R4) 



SETUP TO ADDRESS WORDS 
STOP THE TIMER 



ArA8IT(R1).RMAS(R4) 



SELECT THE DRIVE 



.-CLEAR »HE ATTENTION BIT 



IW^^BO RM05/3/2 FORMATTER 
&H'Cii>1 DRIVER INITIALIZATION CODE 



MACRO V04.00 A-APR-8T T8:39:b6 



PAGE 



10 

45-16 



956 
957 
958 
959 
960 
961 
962 
963 
964 
%5 
966 
967 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
^007 
1008 
1009 
1010 
1011 
1012 
1013 
^014 
1015 



034364 
034 370 
034372 
034 376 
034402 
034404 
034410 
034412 
034414 
034416 
034422 
054430 
0344 34 
034440 
034442 
034450 
034452 
034454 
034462 
C 34464 
034466 
034472 



034476 
034502 
034504 
034512 
034514 
034516 
034520 
034524 
034526 
034534 
034536 
034542 
034544 
034546 
034552 
034554 
034556 
034562 
034564 



105761 
001424 
105061 
004037 
000240 
105761 
003014 
005702 
001426 
004737 
052762 
004737 
004737 
000414 
032764 
001006 
006301 
012761 
006201 
000402 
004737 
000137 



005737 
001027 
112737 
104412 
005001 
005003 
005763 
002406 
166663 
003002 
004737 
005201 
005723 
022701 
003362 
104413 
105037 
012616 
000207 



030360 

030360 
030700 

030340 



036316 
140000 
035462 
036340 

00400C 



035230 



031506 
033402 



030404 
000001 

030422 
000002 
034566 

000010 

030405 



IS: 



000016 

000000 
030422 



2$: 



TST8 

BEQ 

CLR8 

JSR 

NOP 

TST8 

BGT 

TST 

BEQ 

JSR 

BIS 

JSR 

JSR 

BR 

BIT 

BNE 



DPINKRI ) 
2$ 

DPINKRI ) 
RO.DRVINT 

DRVSIA(RI) 

2$ 

R2 

3$ 

PCGETREQ 
#8JT15iBIT14.16 
PC.SVRH70 
PC.POPQUE 
3$ 



INITIALIZING THE DRIVE ? 
9R IF NOT 

CLEAR THE INF INDICATOR 
GO INIT THE DRIVE 
Dl/flY PARITY ERROR RETURN 
DRIVE ONLINE ? 
8R IF YES — START ORDER 
QUEUE ENTRY FOR THE DRIVE 
8R IF NOT 
GET DPS ADDRESS 
(R2) .-INFORM USER THAT DRIVE OFFLINE 

;SAVE THE REGISTERS 
.•REMOVE THE QUEUE 



*8IT11.RMCS1(R4) ;DVA SET ? 

4$ .-SET THEN CALL OPT 



030405 



030422 





ASL 


R1 




MOV 


*15000..TIMER(R 




ASR 


R1 




BR 


3$ 


4$: 


JSR 


PC. OPT 


3$: 


JMP 


SC4 


:RM TIMER ROUTINE 


; CALL 








MOV 


»TIME,-(SP) 




JSR 


PC.RMTMR 


RMTMR: 


TST 


ACTDRV 




BNE 


4S 




M0V8 


#1.ACTSTR 




SAVREG 






CLR 


R1 




CLR 


R3 


1$: 


TST 


TJMER(R3) 




BLT 


2$ 




SUB 


2(SP) .TIMER(R3; 




BGT 


2$ 




.SR 


PC.STO 


2$: 


INC 


R1 




TST 


(R3H 




CMP 


»8..R1 




BGT 


IS 


5S; 


RESREG 






CLR8 


ACTSTR 


4$: 


MOV 


(SP;*.(SP) 




RTS 


PC 



1) 



.•START 15. SECOND TIMER 



.-START THE PENDING REQUEST 
.•PROCESS OTHER DRIVES 



;ELASPED TIME IN MILLISECONDS ON THE STACK 
jCALL RM05 TIME ROUTINE 

.-CHECK "ACTDRV & ACTSTR" 
;Ir NON ZERO EXIT 
;SET "ACTSTR" 
;SAVE RO - R5 
.•START WITH DRIVE 0 

IS THE TIMER RUNNING? 
8R IF NO 

COUNT THE INTERVAL 
8R IF NO SOFTWARE TIMEOUT 
CALL SOFTWARE TIMEOUT ROUTINE 
MOVE TO NEXT DRIVE 

OUT OF DRIVES? 
8R IF NO 
RESTORE RO - R5 

ZERO ACTIVE SOFTWARE TIMEOLT ROUTINE FLAG 

ADJUST THE STACK 

RETURN 



SOFTWARE TIMEOUT ROUTINE 
NOTE 



THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
OR GREATER 



CALL: 



STO 
MOV 

JSR 

RETURN 



<fDRVNUM.R1 
PC. STO 



; DRIVE NUMBER 
.-CALL 



.'ttMiBO ftMOS/3/^ fOSMATTER ^AQHO vOA.OO ^-APR-81 

kn'kn DRIVE"* INITIALIZATION CQOE 



1016 












T017 05A566 


010146 






STO: 


MOV 


1018 03^570 


010246 








MOV 


1019 03A572 


010346 








MOV 


1020 03A574 


010446 








MOV 


1021 034576 


013704 


030456 






MOV 


1022 03A602 


010164 


000010 






MOV 


^023 034606 


004037 


035110 






JSR 


1024 034612 


000012 








RMOS 


1028 034614 


035076 








ST09 


1029 034616 


105726 








TST8 


1030 034620 


100436 








BMI 


1031 034622 


105761 


030360 




STOL- 


TST8 


1032 034626 


001033 








BNE 


1033 034630 


105761 


030370 






TST8 


1034 034634 


001030 








BNE 


1035 034636 


013702 


030400 






MOV 


1036 034642 


020137 


030442 






CMP 


1037 034646 


001404 








BEQ 


1038 C34650 


0001 37 


035076 
036316 






JMP 


1039 034654 


004737 






JSR 


^040 034660 


052762 


101000 


000016 


ES: 


BIS 


1041 034666 


004737 


035462 






JSR 


1045 034672 


105061 


030330 






CLR8 


1046 034676 


105061 


030406 






CLftB 


1047 034702 


005037 


030400 






CLR 


1048 034706 


01«:737 


M7777 


030442 




MOV 


1049 034714 


000470 








BR 


1050 












1051 034716 


116405 


000016 




ST02: 


wove 


1052 034722 


136105 


030444 






BITS 


1053 034726 


U01007 








BNE 


1054 034730 


105761 


030360 






TST8 


1055 034734 


001021 








BNE 


1056 054736 


105761 


030370 






TST8 


1057 034742 


001035 








BNE 


1058 034744 


000454 








BR 


1059 












1060 034746 


105761 


030360 




ST03: 


TST8 


1061 034752 


001003 








BNE 


1062 034754 


105761 


030370 






TST8 


1063 034760 


001446 








BEQ 


1064 034762 


012763 


^77777 


030422 


1$: 


MOV 


1065 034770 


000442 








BR 


1066 












1067 034772 


004737 


032664 




ST05: 


JSR 


1068 034776 


000437 








BR 


1069 












1070 035000 


105061 


030360 




ST06: 


CLR8 


1071 035004 


105061 


030340 






CLR8 


1072 035010 


012763 


\77777 


030422 




MOV 


1073 035016 


004737 


036316 






JSR 


1074 035022 


005702 








TST 


1075 035024 


001424 








BEQ 


1076 035026 


052762 


UOOGO 


000016 




BIS 


1077 055054 


000414 








BR 


1078 
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RI.-(SP) 

R2.-(SP) 

R3.-(SP) 

R4.-(SP> 

RMADR.R4 

R1.RMCS2(R4) 

RO.RD.RM 



SAVE R1 
SAVE R2 
SAVE R3 
SAVE R4 

GET ADDRESS Of 'TlMCSl" 

SELECT THE DRIVE 

READ 'DRIVE STATUS RFC" 



(SP)* 
ST02 

DPINT(Rl) 
ST02 

DPRQS(R1 ) 
ST02 

TRNSWT.R2 
R1 ,DTUW 
1$ 

ST09 

PC.GETREQ 

#8IT15:BIT09, 

PC,SVRH70 

DRVACT(Rl) 

ULDFLG(R1 ) 

TRNSWT 

*-l ,DTUW 

ST09 

RMAS(R4) .R5 

ATA8IT(R1),R5 

ST03 

DP]NT(R1) 
ST06 

DPRQS(RI) 

ST07 

ST09 

DPINT(RI) 
1$ 

DPRQS(RI) 
ST09 

/)f-l,TIMER(R3> 
ST09 

PC, CIS 
ST09 



16( 



IS 'T)Ry"=1? 
8R \f YES 

TRYING TO INTIALIZE THE DRIVE ? 
8R IF YES 

OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
BR IF YES 

PICKUP TRANSFER WAIT QUEUE 
TRANSFER UNDERWAY ON THIS DRIVE? 
8R IF YES 

IF NOT DON'T BOTHER DRIVES 
GET DP8 ADDRESS 
R2) ;SET THE ERROR FLAGS 
SAVE RH/RM REGISTERS 
DRIVE IS IDLE 
CLEAR THE UNLOAD FLAG 
CLEAR DP8 ADDRESS 
CLEAR THE TRANSFER DRIVE * 
DON'T BOTHER OTHER DRIVES 

READ ATTENTION REG 

IS ATTENTION FOR THIS DRIVE UP ? 

YES 

TRYING TO INTIALIZE THE DRIVE ? 
8R IF YES - DRIVE NOT ONLINE 
OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
8R IF YES - NO RESPONSE TO REQUEST 
OTHER WISE EXIT 

INITIALIZING iHE DRIVE ? 
BR IF INIT PENDING 
PC^T REQUEST PENDING ? 
8R IF NOT 
STOP THE TIMER 
EXIT 

GO HANDLE THE PARITY ERROR 



.-CLEAR THE INITIALIZE INDICATOR 
;SET UNIT OFFLINE 
;SrOP THE TIMER 
;GET THE DP8 ADDRESS 
.•REQUEST IN QUEUE ? 
;8R IF NOT 

*8IT15.BIT14J6(R2) .-INFORM THE USER DRIVE NO' AVAILABLE 
ST08 .-FINISH 



DPINT(RI) 
DRVSTA(RI) 
*-1.TIMER(R3) 
PC.GETREQ 
R2 
ST09 



•"^ :^:.t^ IMHALIZATION CODE 



MACKO .^04.00 4-APR-8" '8:59:S6 



B 

PAGE 



n 

45-13 



SEO OM. 



055036 
055CK4 
035050 
035054 
035056 
035060 
035066 
03S072 

087 035076 

088 035100 

089 035102 
035104 
035106 



^79 
J80 
081 
082 
083 
084 
085 
J86 



090 
091 

<y*2 

093 
094 
095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
' 14 
M5 
116 
117 
118 
119 



035110 
035116 
035120 
055126 
035132 
035134 
03'i136 
055140 
035146 
035152 
035156 
035162 
035164 
035170 
035174 
0551 /6 
035200 
035202 
035202 
035206 
035210 
0352U 
035216 
035222 
035224 
055226 
055230 
035234 
035236 
035244 
035250 
035252 
035254 
153 055256 



120 
121 
122 
125 

124 

125 
126 
127 
128 
129 
150 
151 
M2 



012765 

105061 

004737 

005702 

001407 

012762 

004737 

004737 

012604 

012603 

012602 

012601 

000207 



013737 
011646 
013737 
062037 
013727 
000000 
000000 
015766 
01 5746 
062716 
052756 
001057 
017746 
052716 
001002 
022620 
000452 

004037 
104005 
005757 
100405 
052716 
001402 
005726 
000415 
052716 
000316 
015757 
005257 
112657 
000000 
005327 
000003 



050370 
036316 



100004 
036222 
035462 



030454 

030456 
035134 



035136 
030456 
000010 
010000 

1 73266 
020000 



036406 
030442 
040000 

040000 

050456 
035252 



030422 



000016 



S^07: 




#-1 .TIMER(R5) 


■STOP THE TIMER 




CLRB 


DPROS(RI) 


•CLEAR PORT REQUEST INDICATOR 




JSR 


PC.GETREQ 


■GET DPS ADDRESS 




TST 


R2 


•QUEUE ENTRY FOR DRIVE ? 




BEO 


ST09 


•8R IF NONE 




nov 


*8IT15:B1T2.16^R2) .INFORM USER OF PORT RfOUEST 


ST08: 


JSR 


PC.EMPTrO 


•CLEAR THE QUEUE FOR THE DRIvE 




JSR 


PC.SVRH70 


•SAVE THE REGISTERS 


ST09: 


MDV 


(SP)*.R4 


; RE STORE R4 




MOV 


(S.'^)*.R3 


•RESTORE R3 




MOV 


(SP)*.R2 


: RE STORE R2 




MOV 


(SP)*.R1 


;RESTORE R1 




RTS 


PC 


;RE TURN 



035256 
035134 

000002 



ROUTINE TO READ A RH/RM REGISTER 
CALL 



PD.RM: 



RD.RM1 
RD.ADR 
RD.WRD 



1$: 



035252 



2$: 
3$: 

RD.RM2; 



JSR 


RO.RD.RM 


INDEX 




FRRADR 




RETURN 




MOV 


MCPEMX.RD.RM2 


MOV 


(SP).-(SP) 


MOV 


RMADR, RD.ADR 


ADD 


(RO)*. RD.ADR 


MOV 


a(PC)*,(PC)* 


-WORD 


0 


.WORD 


0 


MOV 


RD.WRD. 2(SP) 


MOV 


RMADR.-(SP) 


ADD 


*RMCS2.(SP) 


BIT 


#8IT12,a(SP)* 


BME 


RD.RM3 


MOV 


aRMADR.-(SP) 


BIT 


*8IT13, (SP) 


BNE 


IS 


CMP 


(SP)+,(R0)* 


BR 


RD.RM4 


JSP 


RO.ES.SAV 


EMT 


3 


TST 


DTUW 


BMI 


2$ 


BIT 


*8IT14.(SP) 


BEO 


2$ 


TST 


(SP)* 


BR 


RD.RM3 


BIS 


#8IT14,(SP) 


SWAB 


(SP) 


MOV 


RMADR.3$ 


INC 


3$ 


M0V8 


(SP)*.a(PC)* 


.WORD 


0 


DEC 


(PC)* 


.WORD 


3 



GO READ A REGISTER 

REG. INDEX FROM BASE 

ERROR ADDRESS— PROCESS ERROR START j^g 

AT THIS ADDRESS 

CONTENTS OF REG. IS ON THE STACr 

MAX. RETRVS ALLOWED 

SAVE RO FOR RETURN 

FORM THE DESIRED ADDRESS 

USING THE BASE AND THE INDEX 

READ THE DESIRED REGISTER OF THE RM DRIVE 

ADDRESS IS FORMED HERE 

REG. CONTENTS PUT HERE 

RETURN IT TO THE USER 

PUT THE ADDRESS ON THE STACK 

FORM THE ADDRESS OF RMCS2 

CHECK THE 'NED* BIT 

BR IF DRIVE NON-EXISTENT 

READ RMCS1 

DID MCPE SET? 

BR IF YES 

ADJUST FOR RETURN 

EXIT 

SAVE THE ADDRESS IN 'SESCAPE' 
REPORT "WCPF" ERROR 
DATA TRANSFER UNDERWAY? 
NO 

"TRE" = 1 ? 
NO 

YES— CLEAN OFF THE STACK AND 

TAKE THE FATAL ERROR EXIT 

CLEAR "MCPE" BY SENDING A "1" TO "TRE" 

POSITION BEFORE WRITING 

FORM ADDRESS OF HIGH BYTE 

.■WRITE THE HIGH BYTE OF RMCS1 
.•ADDRESS STORAGE 
.•EXCEEDED MAX. RETRYS 



DE 



C 11 
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"56 

'?8 

UC 

14? 

144 

'^5 

146 

147 

148 

'49 

150 

151 

15? 

155 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

16t) 

166 

167 

168 

'69 

'70 

171 

172 

173 

174 

175 

176 

177 

178 

179 
180 
181 
182 
133 
184 
185 
'86 
•187 
'188 
'189 



035260 
035262 
035264 

C35266 



035270 
035276 
035304 
035306 
035312 
C35314 
035322 
035324 
035330 
035332 
035334 
035336 
035342 
035346 
035354 
035356 
035360 
035362 
035366 
035372 
035376 
035400 
035404 
035406 
035410 
035414 
0354'6 
035424 
035430 
035^32 
055434 
035440 
035442 
035444 
035446 
035450 
035452 
035454 
035456 
035460 



002324 
01 '000 
C12616 
000200 



BGE 

RD.RM3: MOV 
MOV 

RD.RM4: RTS 



RD.RM1 
(R0>,R0 
(SP)*.CSP) 
RO 



;8R NO 

; FATAL ERROR fXiT 



ROUTINE TO WRITE A REGISTER 



CALL 



MOV 

JSR 

INDEX 

ERRADR 

RETURN 



DATA.-(SP) 
RO.WRT.RM 



DATA TO BE LOADED ON Th£ STACK 
CALL THE ROUTINE ^0 L0AD(WRI7E) THE REG. 
INDEX OF THE REGISTER TO BE LOADED 
ADDRESS TO RETURN TO ON AN ERROR 
ERROR FREE RETURN 



013737 


030454 


035446 




.RM: 


MOV 


MCPEMX,WRT.R2 


MAX RETRYS ALLOWED 


016637 


000002 


035356 






MOV 


2(SP).WRT.WD 


SAVE THE WORD TO WRITE 


012616 










MOV 


(SP)*.(SP) 


ADJUST THE STACK 


012037 


035360 








MOV 


(RO)+.WRT.AD 


GET INDEX OF REGISTER TO BE WRITTEN 


001015 










BNE 


4 » 

1» 


8R Ir NOT RMCSl 


122737 


0C0150 


035356 






CMP8 


4^150, WRT. WD , 


IS THE COMMAND fOR DATA TRANSFERS? 

wc c r\ r\k iir fc T t Lie r\t r\ aiz 0 a17 0 r\c c t 

TcS— DON r GET THE OLD Al6 tfc Ai/', & PScL 


00241 1 










BlT 


1« . 


004037 


/w r 4 4 A 

035110 








JSR 


r^f\ nfv fSfta 

RO.RD.RM 


NO COMBINE A16&A17, & PSEL WITH 


A A ^1 A A 

000000 










RMCS1 




THE COMMAND BEFORE SENDING IT TO 


035452 










WRT.R3 




THE RH/RM 


000316 










SWAB 


(SP^ 




042716 


\7777Q 








BIC 


tf \.7 . (SP) 




112637 


035357 








M0V8 


(Sp;+,wrt.wd*1 




063737 


030456 


035360 


4 ^ 

1$: 




ADD 


RMADR.WRT.AD 


"FORM THE ADDRESS OF THE DISK RcG. 


01273"^ 






WRT 


r\ 4 

.R1 : 


MOV 


(PC) +,3 (PC)* 


LOAD THE DESIRED REG. 


A n A A A A 

000000 






WRT 


.WD: 


• WORD 


0 


•WORD TO WRITE GOES HERE 


000000 






WRT 


-AD: 


.WORD 


0 


■ADDRESS IS FORMED HERE 


01 3746 


030456 








MOV 


Rr'lADR,-(SP) 


•PUT THE ADDRESS ON THE STACK 


062716 


000010 








ADD 


ffRMCS2. (SP) 


•FORM THE ADDRESS OF RMCS2 
CHECK THE NED BIT 


032736 


010000 








BI T 


*81T12,a(SP)-»^ 


001025 










BNE 


WRT .R5 


8R IF DRIVE NON-EXISTENT 


004037 


0351 IP 








jSR 


RO.RD.RM 


CHECK FOR PARITY ERROR ON WRITE 


UUUU 1 *• 










DMC- 0 1 






035452 










WRT,R3 






032726 


000010 








BJT 


#8IT03.(SP)* 




001420 










BEQ 


WRT.R4 


:8R IF "PAR 0" 


016037 


1 7777h 


035430 






MOV 


-2(R0),1$ 


; PICKUP THE INDEX 


004037 


035110 








JSR 


RO.RD.RM 


;READ THE REG. 


000000 






1$: 




.WORD 


0 


;REG. INDEX 


035452 










WRT.R3 




•RETURN TO THIS ADDRESS ON ERROR 


004037 


030406 








jSR 


RO.ES.SAV 


■SAVE THE ADDRESS IN 'SESCAPE' 


104004 










EMT 


4 


•REPORT THE PARITY ON WRITE ERROR 


005726 










TST 


(SP)* 


; CLEAR OFF THE STACK 


005327 










DEC 


(PC)* 


•DECREMENT THE ERROR COUNT 


000003 






WRT 


.R2: 


.WORD 


3 


•RETRY COUNTER 


002341 










BGE 


WRT.R1 


;TRY AGAIN IF NOT FINISHED 


011000 






WRT 


.R3: 


MOV 


(RO).RO 


;TAKE THE 'PARITY ON WRITE" ERROR FxT 


000401 










BR 


WRT.R5 


;EXIT 


005720 






WRT 


.R4: 


TST 


(RO)* 


.-ADJUST FOR ERROR FREE EXIT 


000200 






WRT 


.R5: 


RTS 


RO 





.•ROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPe*14 



4 










;CALL 
















nov 


1 • n~> 












jSft 
















1 ' V J ^ w C 


104412 






Si/Rh70: 


SAVREG 


03S4^ 


00570? 

VV ^ ' Wb 










TST 


1 196 03S466 


001442 

W ' ~~b 










6E0 


1 197 03S470 


013704 


030456 








MOV 


1198 03SA74 


1 11264 


000010 








MOVB 


11QO 035500 


016203 

V ' Ub W -J 


000014 

WW ■ » 








MOV 


1200 035504 


001433 










BEO 


1201 035506 


005037 


035542 








CLR 


1202 035512 


023727 

Vb ^ • b ' 


035542 


000022 

W V V W b b 


1$: 


CMP 


"•203 035520 


001 006 










BNE 


1204 035522 


032764 


000200 

V Wb w 


000010 

WW 1 w 






BIT 


1205 035530 
■•206 035532 


001002 

V V I wvb 










BNE 


005023 










CLR 


1207 035534 


000405 










BR 


1208 035536 


004037 


035110 




2$: 


JSR 


1209 C35542 


000000 






3$: 


.WORD 


1210 035544 
■•211 035546 


035570 










5$ 


01 2623 










MOV 


1212 035550 


023727 


035542 


000046 

w w » 


4$: 


CMP 


1213 035556 


001406 










BEO 


1214 035560 


062737 


000002 


035542 






ADD 


1215 035566 


000751 










BR 


1216 ..J5570 


004 737 


032564 




5$: 


JSR 


1227 035574 


104413 






6$: 


RESREG 


1229 035576 


000207 

W Wb w • 










RTS 


1230 














1231 










•ROUTINE TO SE 


1232 










;CALL 




1233 












MOV 


1234 












JSR 


1235 












RETURN 


1236 

1237 035600 














010446 






SET. IE: 


MOV 


1238 035602 


01 3704 


030456 








MOV 


1239 035606 


010164 


000010 








MOV 


1240 035612 


011446 










MOV 


1241 035614 


052716 


040000 








BIS 


1242 035620 


000316 










SWA8 


1243 035622 


1 12714 


000100 

WV 1 w 








M0V8 


1244 035626 


032764 


010000 


00001 0 






BIT 


1245 035634 


001002 










BNE 


1246 035636 


005726 










TST 


124 7 035640 


000402 










BR 


1248 035642 


1 1 2664 


000001 




1$: 


M0V6 


1249 035646 


012604 






2$: 


MOV 


1250 0^5650 
'251 


000207 

W Wb V ■ 










RTS 














1252 










; QUEUE 


COUNT 


1253 














'254 035652 


000 






3CIMT: 


.eyre 


1257 035653 


000 










.BYTE 


055654 


000 










.8VTE 


C35655 


000 










.BYTE 



0 n 
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#DP8NUH-R2 ;DP8 POINTER TO R2 

PC.SVRM70 .-SAVE THE DRIVES REG'S 

R2 iauEUE ENTRY FOR THE DRIVE 

6S :BR IF NONE 

RnADR,R4 

(R2).R^CS2(R4) .-SELECT DRIVE 

14.R2),R3 .-GET THE ERROR TABLE POINTER 

6$ .-EXIT IF NO ADDRESS 

3$ .-COUNTER & POINTER 

3$.*RMDB .-REACHED THE BUFFER REGISTER ? 

2$ ;8R IF NOT 

#8IT07.RMCS2(R4) .-'OR* SET ? 

2S ;BR IF SET 

(R3)* .-STORE RMD8 AS ZEROES 

4$ .-CONTINUE 

RO.RD.RM .-READ THE SELECTED REGISTER 

0 .-REGISTER INDEX 

.ERROR RETURN ADDRESS 

(SP)*.(R3)* .-STORE THE REGISTER CONTENTS 

3$.#RMEC2 .-REACHED THE END ? 

6$ ;8R If YES 

*2.3$ .-INCREMENT THE REGISTER INDEX 

1$ .-CONTINUE READING THE REGISTERS 

PC.CI7 .-PROCESS THE UNCORRECTABLE PARITY ERROR 

.-RESTORE RO - R5 

PC .-RETURN 

THE INTERRUPT WITHOUT GETTING A "TRE" 

ADRVNUM.Rl .-DRIVE NUMBER TO R1 

PC. SET. IE ;SET "IE" 



R4.-(SP) ;SAVE R4 

RMADR,R4 .-PICKUP ADDRESS OF RMCS1 

R1.RMCS2(R4) .-SELECT DRIVE 

(R4).-(SP) .-READ RMCS1 

#8IT14,(SP) .-SET THE "TRE" BIT OF THE WORD READ 

(SP) .-ADJUST FOR DATO 

#8IT06.(R4) ;SET "IE" 

*8IT12.RMCS2(R4) ;IS '>JED" 1? 

1$ .-YES— CLEAR "TRE" 

(SP)* .-CLEAN OFF THE STACK 

2$ 

(SP)Sl(R4) .-CLEAR "TRE" 

(SP) + .R4 .-RESTORE R4 

PC .-RETURN TO CALLER 



0 .-DRIVE 0 

0 .-DRIVE 1 

0 .-DRIVE 2 

0 .-DRIVE 3 



•-^ H,^ H>^^/^^P FORMATTER *«,Amc 
• t*** DRI.fcR IMTIALI7AT10M CODE 
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1288 
1289 
1290 
1291 
1292 
1295 
1294 
'295 
1296 
'297 



036K4 



036 UA 
036 U6 
056'52 



10AA1? 

012702 035652 
005022 



SfO 01 U 



C 35656 


000 




BVTE 


0 


035657 


000 

WW 




.arTE 


0 


0 35660 


000 




.avTE 


0 


035661 


000 




.BrTE 


0 


^258 
'259 
'260 

'261 035662 












.•QUEUE INPUT POINTERS 










035744 


CINPT 


.WORD 


CDRVO 


VMi 035<»64 


035764 




.WORD 


QDRVI 


035666 


036004 




.WORD 


QD'<V2 


035670 


036024 




.WORD 


QDRV5 


035672 


036044 




.WORD 


QDRV4 


055674 


036064 




.WORD 


QDRV5 


035676 


036104 




.WORD 


QDRV6 


035700 


036124 




.WORD 


QDRV7 


V65 
^266 












.•QUEUE OUTPUT 


POINTERS 


1267 










1268 035702 


055744 


QOUTDT: .WORD 


QDRVO 


1271 C3570A 


055764 




.WORD 


QDRV1 


035706 


036004 




.WORD 


QDRV2 


035710 


036024 




.WORD 


QDRV3 


035712 


036044 




.WORD 


QDRV4 


035714 


036064 




.WORD 


QDRV5 


035716 


036104 




.WORD 


QDRV6 


035720 


036124 




.WORD 


QDRV7 


1272 










1273 035722 


03574^ 


QSTART: .WORD 


QDRVO 


''274 035724 


035764 


QSTCP 


.WORD 


QDRVI 


1275 035726 


036004 




.WORD 


QDRV2 


1276 035730 


056024 




.WORD 


QDRV5 


127/ 035732 
V78 035734 


U56044 




.WORD 


QDRV4 


056064 




.WORD 


QDRV5 


1279 035736 


0561 0'. 




.WORD 


CDRV6 


1280 035740 

1281 035742 


056124 




.WORD 


QDRV7 


036144 




.WORD 


QTERM 


1282 










1283 




.•DRIVE REQUEST 


QUEUES 


1284 










1287 035744 




QDRVO 


.8LKW 


10 


035764 




QDRVI 


-8LKW 


10 


036004 




QDRV2 


.8LKW 


10 


036024 




QDRV5 


.8LKW 


10 


036044 




QDRV4 


.SLKW 


10 


036064 




QDRV5 


.8LKW 


10 


036104 




0DRV6 


.8uKW 


10 


036124 




0DRV7 


.8LKW 


10 



DRIVE 


4 


DRIVE 


5 


DRIVE 


6 




7 


DRI VF 


0 


DRIVE 


1 


DRIVE 


■> 

c 


DRIVE 


3 


DRIVE 


4 


DRIVE 


5 


DRIVE 


6 


DRIVE 


7 


DRIVE 


0 


DRIVE 


1 


DRIVE 


2 


DRIVE 


3 


DRIVE 


4 


DRIVE 


5 


DRIVE 


6 


DRIVE 


7 


DRIVE 


0 


DRIVE 


0 



START ADDRESS 
STOP ADDRESS & DRIVE 
STOP DRIVE 1--START DRIVE 2 
STOP DRIVE 2— START DRIVE 5 
STOP DRIVE 3--START DRIVE 4 
STOP DRIVE 4--START DRIVE 5 
STOP DRIVE 5— START DRIVE 6 
STOP DRIVE 6— START DRIVE 7 
STOP DRIVE 7 



_QTERM=. 

ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
CALL 



JSR PC, CL ROUE 
CLRQUE: SAVREG 



MOV 
CLR 



#QCNT.R2 
(R2)* 



SAVE RO - R5 

ZERO THE QUEUE COUNTS 

DRIVES 0 S 



:'-*'\Ho bf*:5/^''t.^ FORMAT 'CR 
.H'R»^ DfiI;ER IMTIALIZATION roDE 



000010 
03572? 



fMCftO V04.00 



F n 





C 561 54 


005022 




0^1 


W JVCC 




wV 'wcfc 


' ^fjl 
/v 


036'' 62 


012703 




0361 7? 


012701 




012122 


0^61 74 


OOS303 






001 575 






01 P703 


1 J\J f 




012701 


1 3G8 


036210 


01 2''22 




036212 


005303 


'510 


036P14 


001 375 


1 51 1 


036216 


10441 5 


' 512 

J ' C 


036220 


000207 


J I J 






1 51 4 
' 51S 










1 5'*) 

J -J 






1 51 ' 






1 518 






1 319 






1520 


036222 


105061 


1321 


036226 


006301 


'322 


036230 


016161 


1 523 


036236 


006201 


1324 


036240 


000207 


1 525 






1 526 






1 527 






1528 






1 52^ 






1550 






1351 






1 532 






1 333 






1534 






1 555 


036242 


122761 


1556 


036250 


001421 


1 537 


036252 


105261 


1558 


036256 


006301 


1 559 


036260 


010271 


1 540 


036264 


062761 


1541 


016272 


026161 


1 542 


036300 


001005 


1 543 


036502 


016161 


1 344 


036310 


006201 


1346 


036312 


005720 


036314 


000200 


1347 






1348 






1349 






1350 






1351 






1552 
'553 
'354 















000010 
035722 



'S: 



CAuL 



EMPrvQ: 



035702 



.APR.g1 
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2c 


CLR 


{R2)* 


.•DRIVES 2 ft 5 


CLR 


(R2)* 


.-DRIVES 4 ft 5 


CLR 


(R2)* 


.'DRIVES 6 ft 7 


"10V 


#8. .R3 


.•MOVE THE STARTING 


MOV 


xrOSTART.RI 


.•ADDRESS Of THE QUEUE INi'O 


mov 


(R1 (R2)* 


;THE QUEUE INPUT POINTER 


DtL 


R3 




6NE 


1$ 




liOV 


#8. ,R5 


.■MOVE THE STARTING ADDRESb 


MOV 


#0iTART,R1 


;0F THE QUEUE INTO THE 


MOV 


(R1)*.(ft2)* 


.-QUEUE OUTPUT POINTER 


DEC 


R3 




BNE 


2$ 




RESREG 




.•RESTORE RO - R5 


RTS 


PC 




HE QUEUE SPECIFIED BY R1 


MOV 


DRVNUM.R1 


.•DRIVE NUMBER TO R1 


JSR 


PC.EMD1YQ 




CLR8 


QCNKP'') 


.-CLEAR NUMBER OF ITEMS IN 


ASL 


R1 




MOV 


0INPT(R1).Q0UTPT(R1) ;SET OUTPUT QUEUE 


ASR 


R1 




RTS 


PC 





^fu mi) 



ROUTINE TO PU' A REQUEST IN QUEUE 



000010 

035652 

035662 
000002 
035662 



035652 



035662 
035724 



035722 035662 



CALL 

MOV 
MOV 

JSR 

RETURNI 
RE TURN2 

DRVQUE: CMP8 
BEC 
INC8 
ASL 
MOV 
ADD 
CMP 
BNE 
MOV 
ASR 
TST 
RTS 



#DRVNUM.R1 
#DP8.R2 
RO. DRVQUE 



#10.QCNT(R1) 
2$ 

QCNT(RI) 
R1 

R2.aQINPT(R1) 
#2.QINPT(R1) 



.-DRIVE NUMBER 

.•ADDRESS OF PARAMETER BLOCK 
;G0 PUT REQUEST IN QUEUE 
.-RETURN HERE IF QUEUE IS FULL 
.-RETURN HERE IF REQUEST IS IN QUEUE 

;IS QUEUE FULL? 

;8R IF YES-TAKE RETURNI 

.•INCREMENT QUEUE COUNT 



2$: 



;PUT THIS REQUEST IN QUEUE 
.-UPDATE THE QUEUE POINTER 
Q]NPt(R1).dST0P(R1) .TIME TO RESET THE POINTER 
1$ ;8R IF NO 

QSTART{R1).QINPT(R1) ;YES— RESET POINTER 

R1 

(RO)* .-TAKE RETURN 2 

RO .-RETURN TO USER 



ROOrjNE. TO GET THE "DPe" ADDRESS 0/" NEXT REQUEST IN QUEUE 



CALL 



MOV »DRi^NUM.R' 
JSR PCGETREQ 
RETURN 



DRIVE NUMBER TO R1 

GO GET THE REQUEST 

R2="DP8" ADDRESS OF THE REQUES^ 

R2-0 IF NO REQUEST IN QUEUE 



IMTIAi I/AT ION CODE 



vO*..00 4-APQ-81 '8:59:S6 



G 

PAGE 



556 0 563^6 
55 7 0 565?0 

558 056524 

559 036326 

560 036350 

561 036534 

562 036536 
563 

564 
365 
3o6 
567 
568 
569 
570 

571 056540 

572 036544 

573 056546 

574 C56552 

375 036356 

376 036364 

577 036372 

578 036574 

579 036402 

580 056404 
381 

585 
584 
585 
586 
58/ 
588 
380 
390 

591 056406 

592 056412 

593 036416 
0^6422 
036424 
056450 



594 

595 



005002 
105761 
00U04 
006501 
017102 
006201 
000207 



105561 
006301 
017102 
005071 
062761 
026161 
001003 
016161 
006201 
000207 



012037 
013746 
005037 
000000 
012637 
000200 



035652 
035702 



GETRCQ: 



;IS THERE ANY RfOUfST IN Ouf Jf ? 

:N0 



CLR R2 

TST8 OCNT(RI) 

BEO 2S 

ij. ASL R1 

W)V aQ0UTPT(Rl).R2 ;PI CKUP •T)P8" POINTER FOR 'Ml S DR I ."^ 

ASR R1 

2S: RTS PC .'RETURN TO USER 



ROUTINE TO 
CALL 

MOV 

JSR 

RE TURN 



'HE REQUEST FROM QUEUE 



055652 

035702 
035702 

000002 035702 
035702 035724 

035722 035702 



POPQUE : 



1$: 



DEC8 

ASL 

MOV 

CLR 

ADD 

CMP 

BNF 

MOV 

ASR 

RTS 



#DRVNUM,R1 ;DRJVt NUMBER TO R1 

PC.POPQUE .-CALL TO REMOv'E REQUEST 

;R2=ADDRESS OF DPS REMOVED 

; DECREMENT QUEUE COUNT 



QCNT(RI) 
R1 

aQ0UTPT(R1).R2 
aQOUTPT(RI) 
*2.Q0UTPT(R1) 



;&ET THE "DP8" POINTER 
; REMOVE DP8 ADDRESS FROM THE QUEUE 
.■UPDATE THE QUEUE POINTER 
Q0UTPT(R1),QST0P(R1) .'TIME TO RESET THE POINTER' 
1$ ;N0— 8R TO EXIT 
0START(R1).Q0UTPT(R1) ;YES— RESET THE POINTER 
R1 

PC .-RETURN TO USER 



ROUTINE TO SAVE THE CONTENTS OF 'SESCAPE' WHEN THE DRIVER 
REPORTS AN ERROR DIRECTLY. 



036422 
001 1 76 
001 1 76 

OO"- 1 76 



CALL 



ES.SAV: 



JSR 

ERROR 

RETURN 

MOV 
MOV 

CLR 

.WORD 

MOV 

RTS 



RO. ES.SAV 
N 



(R0)+.1$ 

$ESCAPE.-(SP) 

ttSCAPE 

0 

(SP)*,$E SCAPE 
RO 



.-THE ERROR CALL 

THE RETURN IS PAST THE ERROR CALL 

GET THE ERROR CALL 

SAVE THE ADDRESS IN 'SESCAPE' 

CLEAR THE ESCAPE RETURN 

THE ERROR CALL IS MOVED HERE 

RESTORE THE ESCAPE ADDRESS 

RE TURN 













V.4 . 3C 


^-APR-8 


•^Pl MESSAGE": 














1 










.S8TTL 


telet 


3 


036432 


VW 


• 1 f 


Uo 


UNTOFF 


A ^ f 

■ .ASCL 




05644 3 


f\j n 
0*»U 


1 1 f 


1 lo 


UNTON 




.ASCL 


5 


036453 


U*tU 


1 1 A 


1 7 


NOTRM 




• ASCL 


6 


036474 




11*. 


117 


NOTPRS 


.ASC 




036511 




1 


1 1 

1 lo 


NOTSAF 


.ASC 


8 


036521 


U4U 


11/ 


117 


LODEV 




.ASCL 


9 


036536 


1 


lie 


UoU 


$RM02 




.ASCL 


10 


036543 


1 TD 

^ cd 


lie 


A/.A 


$RM03 




.ASCL 




036550 


\ed. 


lie 


A/.A 


$RM05 




A C ^ T 

.ASCL 


1? 


036555 


^UU 


1 ^e 

1 d} 


1 1 A 
1 1 O 


UNSTAT 


A f ^ f 

.ASCL 


13 


036573 


cv\> 


1 A/ 


1 00 


MUNIT 




.ASCii 


u 


036602 




AAA 




SCOMMA 


.ASCL 


15 


056604 


\)( d 


A/ A 


AAA 


COLON 




.ASCL 


16 


056607 


r\/ r\ 
(JhU 


At7 


A/ A 


SLASH 




.ASLL 


17 


036613 


1U5 


AAA 




C: 




.ASCL 


18 


036615 


1 d** 


AAA 




T: 




.ASCL 


:9 


036617 


U*»U 






BLNKS4 


• ASCI 


20 


C 36620 








BLNKS3 


.ASCI 


21 


036621 








BLNKS2 


.ASCI 


22 


036622 




AAA 




SINKS 1 


A ^* ^ T 

.ASC Ji 


23 


036624 


dVU 


1 Ae 


1 1 A 

1 1 D 


ENTADR 


.ASCL 


24 


036654 




A77 


1 AA 


MOFFLN 


A c r 1 

.ASC 1 1 


25 


036675 


A/ n 


A77 


1 AA 


MDRNP 




A C ^ T 

.ASCL 


26 


036722 


U'tU 


A77 


1 A/ 


MER11 




A C ^ f 

.ASC J < 


27 


036^51 




A77 


1 A/. 


MUSDR 




A C ^ f 

• ASCL 


28 


036771 




A77 


1 AZ. 


MLODEV 


A C ^ f 

.ASCL 


29 


037021 


A/ A 


1 C J 


1 Ae 


MSELD 




A ^ f 

.ASCL 


30 


037033 


1 A*, 


117 

1 1 f 


100 
1 dd 


MFORMT 


.ASCi< 


31 


037062 


1 DA 


1 Ae 


1 00 
1 dd 


MVERFY 


.ASCI 


32 


037106 


U J** 


AZ. A 


1 1 f 


M168IT 


• .ASCii 


33 


037141 


U J** 


A/ A 


117 


M'88ir 


' .ASCI 


34 


057174 


A/. A 


A77 


111 

1 1 1 


BADENT 


' .ASCL 


35 


037215 




1 A1 


1 7A 


MADRER 


■ .ASCI 


36 


037270 




1 1 A 

1 1 U 


1 A1 






A f /* T 

• ASCL 


37 


037315 


DAA 


1 5'? 


1 0/ 


MSFOR 




A t ^ f 

.ASCL 


38 


037357 




1 T7 


1 0/ 
1 d** 


MSOVER 


A c r* f 

.ASCL 


39 


037376 


5AA 


1 5? 

1 c J 


1 OZ. 


MSVER 




A C ^ T 

.ASCL 


40 


037427 


■JAA 


1 r\x 


117 


MS CMP T 


.ASCL 


41 


037442 


A*;/. 


A/ A 


1 OL 


NUMERR 


A f ^ T 

.ASCL 


42 


C57475 


1 5A 


1 A1 


1 A^ 


PACKSN 


.ASCL 


43 


057506 


1 'DA 
1 d\J 


1 £:£: 


1 Ae 

1 U 0 


ADDRIS 


.ASC L 


44 


057555 


DAA 


1 Ae 


1 1 <^ 


MESG1 




.ASCL 


45 


057572 


5AA 


A77 


111 

1 1 1 


MESG2 




.ASCL 


46 


037643 


DAA 


A77 


117 

1 1 f 


MESG5 




.ASCL 


47 


037704 


DAA 


A77 


1 A/ 


MES64 




.ASCL 


48 


037740 


5AA 




1 Ae 


MSG8LK 


.ASCI 


49 


040007 


1 D^ 

1 dJ 


1 OA 


1 AA 






.ASCI 


50 


040066 


1 5A 


\dd 


1 ' 






.ASCI 


51 


040145 


1 3A 


\dd 


111 

1 1 






.ASCI 


52 


040224 


111 


1 1 

1 1 o 


111 






.ASC I 


53 


040303 


1 3A 




•< 1 1 






A f* ^ f 

.ASCI 




040562 


1 5A 


1 00 

1 cd 


( ' 






.ASCI 




040441 


1 A? 


117 

I f 


1 t 






A c r T 




C40521 






' • h 


•^lUT. TV 


.ASCL 


i - 


:h?^6<. 


200 


'05 




■^E ^,o5 




.ASCL 
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pe messages 

/ OFFLINE/ 
/ ONLINE/ 

a NOT AN RM05/3/2a) 

/ NOT PRESENT/ 

/ UNSAFE/ 

/ LOAD DEVICE/ 

/RM02/ 

/R,M03/ 

/RA105/ 

<CRLF>/UNIT SIATUS:/ 

<CRLF>/DRIVE/ 

/./ 

/: / 

a / a 

/C/ 
/T/ 
/ / 
/ / 
/ / 
/ / 

<CRLF>/ENTER ADDRESS LIMITS:/<CRLF> 

/ 7DRIVE OrFLJNE/<CRLF> 

/ 7DRIVE NOT PRESENT/<CRLF > 

/ 7DRIVE NOT AVA]LA8LE/<CRLF> 

/ 7DRIVE UNSAFE/<CRLF> 

/ 7DRIVE IS LOAD DEVICE/<CRLF> 

/ SELECTED/ 

/FORMAT & HEADER VERIFY/ 
/VERIFY HEADERS ONLY/ 
/. OPERATE IN 16. BIT MODE/<CRLF> 
/. OPERATE IN 18. BIT l«10DE/<CRLF> 
/ 7INVAL1D ENTRY/<CRLF> 

/MAX TRACK ADRS MUST BE EQUAL TO OR GREATER/*'CRLF> 
/THAN MIN TRACK ADRS/<CRLF> 
<CRLF>/STARTING FORMAT/<CRLF> 
<CRLF>/STARTING QUICK HEADER VERIF Y/<CRLF> 
<CRLF>/STARrJNG HEADER VERIF Y/<CRLF> 
<CRLF>/CO«PLETED/ 
/. TOTAL ERRORS DETECTED / 
aPACK S/N: a 
/PRESENT ADDRESS IS: / 
<CRLF>/ENTER SERIAL NUMBER (OCTAL): / 
<CRLF>/?INCORRECT 'MFG' BAD SECTOR INFORMATION/ 
<CRLF>/?OVER 126. BAD SECTORS DETECTED/ 
<CRLF>/?DISK IS AN ALIGNMENT PACK/ 
<CRLF>/SELECT ONE OF THE FOLLOWING FUNCTIONS/<CRLF> 



/UPDATE 'USR' BAD SECTORS 0/<CRLF^ 

/PRINT 'MFG* BAD SECTORS 1/<CRlF> 

/PRINT 'USR' BAD SECTORS 2/<rRLF> 

/INITIALIZE 'USR' BAD SECTOR FILc 3/-^CRLF> 

/PRINT A SECTOR OF THE LAST TRACK 4/<CRLF-' 

/PRINT THIS MESSAGE S/'-CRLF^ 

/CONTINUE <'fR>/«'CRL<^ > 



<CRLF>/ENTER utility FUNCTION (HELP=5): / 
<CRLF>/ENTER 16 BIT 'MFG* BAD SECTOR ADRS (DECIMAL^/ 



S8 0A0642 


200 


■•0'- 


"t 


MESG6: 


.ASCI 


S** CK.C720 




'05 


1 '6 


Mf SG7: 


.ASCI 


60 040776 


?co 


'05 


'16 


«f SG8: 


.ASCI 


6^ 0410S4 


200 


103 


' 1 7 


MESG9: 


.ASCI 


62 041 UO 


200 


'03 


'17 


MESG10 


■ .ASCI 


fc? 041224 


200 


105 


' 1 7 


ME SG1 1 


• .ASCI 


-^4 041510 


200 


103 


117 


MESG12 


• ASCI 


tS 041374 


200 


120 
'05 


^22 


ME SGI 3 
MSG13A 


.ASCI 


66 041450 


200 


116 


• ASCI 


f 041502 


200 


104 


117 


MESGU 


.ASCI 


68 041513 


200 


105 


' 16 


ME SGI 5 


• ASCI 


041563 
'0 041563 








MESG16 




200 


077 


125 
'06 


ME SGI 7 


.ASCI 


'1 04^630 


200 


077 


ME SGI 8 


• ASCI 


^2 041665 


200 


077 


106 


ME SGI 9 


.ASCI 


^"3 04175? 


104 


117 


040 


MMODE: 


.ASCI 


'4 041771 


104 


117 


04C 


MSIZF: 


.ASCI 


'5 042033 


200 


111 


116- 


MSJM T 


• ASCI 


'6 042100 


2o0 


111 


116 , 


INJ TUS 


.ASCI 


77 042143 


200 


1 1 1 


116 


IN] TMF 


.ASCI 


''8 042206 


052 


040 


'16 


NOENTR 


.ASCI 


^ 042226 


055 


117 


120 


A80RT: 


-ASCI 


80 042255 


200 


A^^ 

077 


116 


NOUPD T 


.ASCI 


81 0423U 


200 


077 


116 


NOJNIT 


.ASCI 


82 042362 


1C3 


no 


101 


MSPRM: 


.ASCI 


83 042423 


200 


052 


052 


STARS: 


.ASCI 


84 








• EVEN 
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<CRlF>/ENT£R 18 BIT 'MfG* BAD SECTOR ADRS (OECI»Wi)/ 
<CRLF>/'ENTER 16 BIT 'USR' BAD SECTOR ADRS (DECIMAL)/ 
<CRLF>/E»<TER 18 BIT 'uSR' BAD SECTOR ADRS (DEClMAi )/ 
<CRLF>/CGNTENTS OF 16 BIT 'MFG' BAD SECTOR FRE (DECIMAi)/ 
<CRLF>/CONTENTS Of 18 BIT 'MFG' BAD SECTOR FRE (DECIMAL)/ 
<CRLF>/CONTENTS OF 16 BIT 'USR' BAD SECTOR FRE (DEfIMAL»/ 
<CRLF>/ CONTENTS Of 18 BIT 'USR' BAD SECTOR FRE (DfClMAi./ 
<CRLF>/PRINT A 'SECTOR' OF THE LAST TRACK (OCTAL)/ 
<CRlF>/ENTER sector (DECIMAL): / 
<C,'^LF>/D0NE ./<CRLF> 

<CRLF>/ENTER 'MFG' BAD SECTOR ADRS (DECIMAL)/<(Ftl f > 
;NOT USED 

<CRLF>/?UNABLE TO WRITE 'SSF ' SUCCESSFUL V/ 
<CRLF>/?FATAL DRIVE ERROR DETECTED/ 
<CRLF>/?FARURE DURING HEADER VERIF ICATION' 
/DO VOU WANT TO FORMAT (L) Y ? / 
/DO YOU WANT 16. BIT MODE (L) V ? / 
<CRLF>/INITiALIZE BAD SECTOR PRE (D N ? / 
<CRLF>/INITIALIZE 'USR' BAD SECTOR FILES/ 
<CRLF>/]N1TIALIZE 'MFG' BAD SECTOR FIlES/ 
/• NO ENTRIES ♦/<CRLF> 
/-OPERATION A80RTED-/<CRLF><07><07> 
<CRLF>/?NO UPDATES IN 'VERIFY' MODE/<CRLF> 
<CRLF>/?NO INITIALIZATION IN 'VERIFY' MODE/''CRLF^ 
/CHANGE DRIVE PARAMETERS (L) N ? / 
<CRLF>/«»«««***«««»«»»/<CRLF> 
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7 A/ ~il 1 


122 


1 1 A 


Ay A 
U4U 


tn 1 r 


4 U4^^^U 


Id J 


11*. 

1 lo 


1 A^ 

1 U3 


CMO • 




lie 


1 AI 

1 U 1 


1 OX 
1 C 3 


cmx ■ 

tH3 : 


O 04jroi4 


lie 


1 AI 


1 OX 

ico 


CMy > 


' 04<:o7i 


1 Ai 


1 Ay 
IU4 


1 A/ 
IUh 


CMC • 


O A/ "^^AC 


1 


I 1 A 

II u 


A/ A 

U4U 


Eno: 


Q A/ "^^iLA 


1 oy 

1 Ay 
1 U4 


1 '55 
ICC 


1 AI 

MM 


Cm7 • 


1A Ay TATy 


1 5 ^ 
ICC 


111 

1 1 1 


CM1 A 


1 1 AA TA^ 5 


1 5A 


1 A^ 

1U3 


1 00 

1 cc 


CM1 1 


15 Ay 71 1 A 


1 5^ 

1 £3 


1 1 A 

1 lo 


1 A? 

1 'J J 


CM1 0 


13 Uh 3 1 J 3 


1 OX 

1 c3 


117 

1 1 f 


1 AA 


CM1 X 




1 AA 


1 00 
' CC 


111 

' 1 1 


CM1 A 


' 3 U*« 3c 1 f 


in? 

1 U3 


117 


1 1 A 


Cn 1 5 


1A AZ.75>i7 
1 0 U*» 3CO 3 


1 AT 

1 U3 


117 


1 1 A 


CM1 A 


17 04 ^^^S 


1?? 
1 cc 


1 w J 


' c 




"8 045413 


104 


101 


124 


EM20 


19 043451 


103 


117 


116 


EM21 


20 043522 


047 


110 


103 


Eri22 


21 043572 


105 


151 


114 


EM23 


22 045642 


'27 


122 


111 


EM24 


2^ 045664 


m 


114 


114 


EM25 



.S8TTL ERROR MESSAGES 



ADDRESSING/ 
NOT CORRECra 



.ASCIZ /RM CONTROLLER INTERRUPT OCCURRED (RMA^ 0>/ 

.ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 

.ASCIZ /MASSBUS PARITY ERROR {MCPE=1)/ 

.ASCIZ /MASSBUS PARITY ERROR (PAR=1)/ 

.ASCIZ /ADDRESS PLUG CHANGE BIT SET/ 

.ASCIZ /RH CONTROLLER DIDN'T RESPOND TO 

.ASCIZ aTRACtC/SECTOR FIELD IN HEADER IS 

.ASCIZ /D^IVE OFFLINE/ 

.ASCIZ /PERSISTENT DRIVE UNSAFE ERROR/ 

.ASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR/ 

.ASCIZ /SOFTWARE TIMEOUT/ 

.ASCIZ /DRIVE UNSAFE ERROR/ 

.ASCIZ aCONTROLLFR/DRJVE ERROR DURING URITEa 

.ASCIZ aCONTROLLER/DRIVE ERROR DURING WRITE CHECKa 

.ASCIZ aRETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLEi 

.ASCIZ aDATA ERROR DURING WRITE CHECKa 

.ASCJZ aCONTROLLER/DRIVE ERROR VERIFYING HEADERSa 

.ASCIZ a'HCE* OR 'HCRC ERROR VERIFYING HEADERSa 

.ASCIZ aCYLINDER FIELD IN HEADER IS NOT CORRECTa 

.ASCIZ aWRITE CHECK ERRORa 

.ASCI2 /ILLEGAL BAD SECTOR. PACK NOT ACCEPTABLE/ 



1 
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S£6 OUO 











COT Tl 


DATA HEADERS 








/ r/ 7 77/ 


IC? 


lie 

' 1 5 


1 A1 

1 U 1 


DHi : 


.ASCJZ 


/RMAS 


RMCS1 RMER1 RMER^ 


RMDS RMDC 


RMDA/ 




1 A/ 

1 u4 


1 55 

Ice 


111 

i 1 1 


Dnd : 


.ASCIZ 


/DRIVE 


RMDS RMER1 RMER2 


RMAS RMCSl/ 




C A/ / AC/ 


1 A/ 

1 04 


155 
ICC 


111 

1 1 1 


r\ij7 • 
DH3: 


.ASCIZ 


/DRIVE 


REG ADR DATA RMCSl 


RMcRi RMtRc' 






1 Ay 


1 55 

Ice 


111 

! 1 1 


r\Li/ - 
UMh : 


.ASCIZ 


/DRIVE 


REG ADR GOOD BAD 


our C 1 CIMC D 1 

RMCSl RMcRl 


RMt R?/ 


7 A/ / "51 A 


1 

!<:£: 


1 1 A 

1 lU 


A/ A 

U4U 


uHo : 


.ASCIZ 


/RH ADDRESS/ 






O A/ / '3*^2 


1 A/ 

lU4 


1 55 
ICC 


111 

1 1 I 


r\u 1 A • 
DH 1 U : 


.ASCIZ 


/UHI Vt 


ERR PC RMCSl RMCS2 


RMDS RMcRI 


RMcRc/ 






1 1 5 


1 Ae 

1 \Jj 


fMJ 1 A A • 


.ASCIZ 




RMEC2 RMUC RMBA 


HP1DA KMAS 


RrIL A/ 


1 A A/ / 77/. 


00 


1 1 ? 

1 I J 


1 A/ 
1 Uh 


rM_il AO • 
Un 1 Uo : 


.ASCIZ 


/R'^DB 


RMMR1 RMDT RMSN 


RMOr CYLINDER 


TRACK/ 


1 1 A/. / L^'J 


1 A/ 

IU4 


1 55 

Ice 


111 

1 1 1 


nul 7 - 


.ASCIZ 


/DRIVE 


ERR PC CYLINDER TRACK 


CC r 1 AD / 

St L 1 UR/ 




1 T A/./. ^51 


1 AA 


155 
I CC 


111 

1 1 1 


rMj5A ■ 
UncU . 


.ASCIZ 


/DRIVE 


ERR PC CYLINDER TRACK 


SECTOR/ 




17 AAA^7A 
1 J Uhm 3f V 




11^ 

1 I 5 


1 A7 

1 \Jj 


fMj5AA • 


.ASCIZ 


/RMCSl 


RMCS2 RMDS RMER1 


RMER2 RMMR2 


RMtLI RfiffCr/ 




1 55 
1 dd 


lie 

1 1 5 


1 57 

1 di 


nLi5nD ■ 
UncUo . 


.ASCIZ 


/RMWC 


RM8A RMDA RMAS 


RMLA RMD8 


Hfm 1 W1U 1 / 


1 ^ AAA 7A 1 


1 55 


lie 

1 1 5 


1 57 

1 C J 


UncUL . 


.ASCIZ 


/RMSN 


RMOF CYLINDER TRACK/ 










1 CC 


1 1 1 


lync J • 


.ASCIZ 


/DRIVE 


ERR PC EXPCTD RECVED/ 




17 045054 


040 


040 


040 


DH24: 


.ASCII 


/ 




MEMORY 


DISK/<CR><LF> 


18 045H^ 


104 


122 


111 




.ASCIZ 


/DRIVE 


ERR PC CYLNDR TRACK 


SECTOR DATA 


DATA/ 


19 045227 


104 


122 


111 


DH25: 


.ASCIZ 


/DRIVE 


CY.NDR TRACK SECTOR 


/ 




?0 








.EVEN 













b 








I" V, ™ 


04 00 












^ 










.seriL 


2 


045270 


00" 370 


005560 


005574 


DT ] : 


u 


045306 


001366 


030320 


030322 


0^2: 




045322 


001 366 


035134 


035136 


DT3: 


6 045336 


001366 


U35360 


035356 


DT4: 




045354 


001274 






DT6: 


8 


045356 


001222 


001 132 


046232 


DT7: 


9 0^5566 


001222 


001 1 32 


005560 


DT10: 


10 


045404 


005624 


005626 


005562 




11 


045422 


005602 


C05604 


005606 




'? 


045440 


001222 


001132 


001362 


DT17: 


13 


045452 


001222 


001 132 


001362 


DT20: 


K 


045464 


005560 


005570 


005572 




15 


045504 


005562 


005564 


005566 




^6 


045524 


005610 


005612 


001362 




17 045534 


001222 


001132 


046230 


DT23: 


18 


045544 


001222 


001 1 32 


001362 


DT24: 


19 045562 


005560 


005570 


005572 




?0 


045602 


005562 


005564 


005566 




^1 


04562^ 


005610 


005612 


001 ^62 






045632 


001222 


005552 


001 364 


DT25: 
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SfO OUT 

DATA rASLES 

.WORD ATTN. R«. REG. R«.REG*U.RM.REG»42.R«.REG*12.W.REG*54,R«,l»fG*6 

.WORD DDRIVE.R«ERRS,RMeRRS*2.R«ERRS*4,ATTN.»WCS1 

.WORD DDRiVE,RD.ADR,RD.URD.Rn.REG,Rn.REG^14.Rn.REG«4? 

.WORD DDRiVE,WRT.AD,WRT.UD,RD.WRD«RM.REG,Rn.REG«U,nM.RfG«4? 

.WORD SRMADR 

.WORD DRIVE,$ERRPC.ReUF*6.R8Uf ^2 

.WORD DRIVE. $ERRPC.RM.REG.RM.REG*10.R«.REG*1?,RM.REG*14,RH.RE6*42 
.WORD RM.REG*44.RM.REG*46.Rf1.REG*2,RM.REG*4.RM.REG*6,RM.RE6*16,R«.R€G»20 
.WORD RM.R£6*22.RM.REG*24,RM.REG*26,R«.REG*30,RM.REG*32,DS.CyL,DS.TRK 
. WORD DR J VE . $E RRPC . DS . C YL . OS . TRX ,8ADSE C 
. WORD DR I VE . SERRPC . D S . C YL . DS . TRK ,8A0SE C 

.WORD RM.REG.RM.REG*10.RM.REG*12,RM.REG*U,RM.REG*42.RM.REG*40,RR.REG*4A,R«.REG*46 
.WORD RM.REG*2,RM.REG*4.RM.REG*6,RM.REG*16,RM.REG*20,R«.REG*?2,RH.REG*?4,H«.REG*26 
.WORD RM.REG*30,RM.REG*32,DS.CYL.DS.TRIC 
.WORD DRJVE,SERRPC,R8UF*4,R8UF 

.WORD DRIVE. $ERRPC.DS.CYL.DS.TRK.9ADSEC.$GDDAT.RM.REG*22 

.WORD RM.REG,RM.REG*10.RM.REG*12.RM.REG*14.RM.REG*42.RM.REG»40,RM.REG*44.R«.REG»46 
.WORD RM.REG*2.RM.kEG*4,RM.REG*6.RM.REG*16.RM.REG*20,RM.REG»22.R«.REG*24.RM.«>EG«26 
.WORD RM.REG*30,RM.REG*32.DS.CyL.DS.TRK 
.WORD DRIVE. FMTDP8*12,DS.TRK.aADSEC 



.-.^y t,, f^M-.S'^V 'J«MA^:Ef< MACRO 
' i'A > KMAr TAB.f S 





000001 






007 


000 


5 045646 


000001 




6 045650 


006 


000 


7 045652 


000001 




8 045654 


006 


000 


9 045656 


000001 




'0 045660 


007 


000 


11 045662 


000001 




12 045664 


001 


000 


15 045666 


000005 




1 4 045670 


007 


000 


15 045672 


044510 




16 045674 


007 


000 


17 045676 


044574 




18 045700 


007 


140 


19 045702 


000001 




20 C45704 


005 


054 


21 045706 


000004 




22 045710 


005 


054 


25 045712 


044570 




24 045714 


010 


000 


25 045716 


044665 




26 045720 


010 


000 


27 045722 


044761 




28 045724 


004 


014 


29 045726 


000001 




50 045750 


005 


000 


51 045752 


000004 




52 045754 


007 


054 


55 045756 


044570 




54 04 5 740 


010 


000 


55 045742 


044665 




56 045744 


010 


000 


37 045746 


044761 




58 045750 


004 


014 


59 045752 


000001 




40 04 5 '54 


004 


000 
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.S8TTL DATA FORMAT TABLES 



DM: 


.WORD 


1 




• BYTE 


7.0 


DF2: 


.WORD 


1 




.B^TE 


6.0 


DF5: 


.W0F<D 


1 




.BriE 


6.0 


DF4: 


.WORD 


1 




.BYTE 


7.0 


DF6: 


.WORD 


1 




• BYTE 


1.0 


DF10: 


.WORD 


5 




.BYTE 


7..0 




.WORD 


DH10A 




-BYTE 


7.0 




.WORD 


DH108 




.BYTE 


7.140 


DF17: 


.WORD 


1 




.BYTE 


5.54 


DF20: 


.WORD 


4 




.BYTE 


5.34 




.WORD 


DH20A 




.BYTE 


8..0 




.WORD 


DH208 




• BYTE 


8.,0 




.WORD 


DH20C 




.BYTE 


4.14 


DF23: 


.WORD 


1 




.BYTE 


5.0 


DF24: 


.WORD 


4 




.BYTE 


7.34 




.WORD 


DH20A 




.BYTE 


8..0 




.WORD 


DH208 




.BYTE 


8..0 




.WORD 


DH20C 




.BYTE 


4.14 


DF25: 


.WORD 


1 




.BYTE 


4.0 
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s - A' BuS ADDfJFSS «iND VECTOR ADDRESS FOR RH/R»1 



SCO 



3 

4 

5 

6 

7 

8 

9 
10 
11 

12 

15 045756 
U 045762 

15 04576A 

16 0A5770 

17 045774 

18 046000 

19 046004 

20 C46006 

21 046010 

22 046014 

23 046016 

24 046020 

25 046024 

26 046026 

27 046032 

28 046036 

29 046040 

30 046042 

31 046046 

32 046050 

33 046052 

34 046056 

35 046060 

36 046064 
3/ 046070 

38 046072 

39 046074 
40 

41 046076 

42 C46105 



005737 
001436 
005037 
104401 
012700 
104401 
011046 
104402 
104401 
104411 
012601 
004537 
000763 
012700 
104401 
011046 
104402 
104401 
104411 
U1260' 
004537 
000763 
012700 
012701 
012021 
012021 
000207 

122 
122 



001 374 

001374 
001205 
001274 
046076 



036621 



046114 

001276 
046105 



036621 



046114 

001274 
030456 



115 
115 



,S8TTL BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH/RM 

THIS ROUTINE 13 USED TO INSURE THE BUS ADDRESS 
OF THE RH/RM IS SETUP FOR THE PROPER ADDRESS. 
IT WILL ALSO READ THE ADDRESS FROM THE TTY IF 
REQUIRED. 

NOTE: THIS ROUTINE DESTROYS R0-R4 
CALL 



JSR 

RETURN 



PC. BUSADR 



BUSADR : 


TST 


CHGADR 


INPUT FROM TTY REQUESTED? 




BEO 


3$ 


NO 




CLR 


CHGADR 


DISABLE CHANGE OF RH/RM ADDRESS 




TYPE 


,$CRLF 


CR-lF 


1$: 


MOV 


#$RMADR,RO 


FIRST ADDRESS 
kMCS1= 




TYPE 


.MRMCS1 




MOV 


(RO;,-(SP) 


PRESENT RMCS1 ADDRESS 




T YPOC 




TYPE IT 




TYPE 


,8LNKS2 


TYPE 2 SPACES 




RDL IN 




GET THE ENTRY 




nOV 




•ADDRESS Or ASCII TEXT 




JSR 


R5,CK.NUM 


■ENTER AND STORE NEW ADDRESS 




BR 


1$ 


•ERROR RET 


2S: 


MOV 


#$RMVEC.RO 


•CHECK VERC 
•"RMVEC-" 




TYPE 


.MRMVEC 




MOV 


(RO) .-(SP) 


•PRESENT RH/RM VECTOR ADDRESS ON THE STACK 




TVPOC 




•TYPE IT 




TYPE 


.8LNKS2 


•TYPE 2 SPACES 




RDLJN 




;READ THE ENTRY 




MOV 


(SP)+.R1 


•ASCII TEXT ADDRESS 




JSR 


RS.CK.NUM 


■ENTER AND STORE NEW ADDRESS 




BR 


2$ 


'ERROR RET 


3$: 


MOV 


*$RMADR.RO 


;FIRST ADDRESS OF NEW PARAMETERS 




MOV 


#RMADR.R1 


.•FIRST ADDRlSS OF WHERE TO PUT THEM 




MOV 


(R0)+,(R1)+ 


;8US ADDRESS 




MOV 


(R0)*,(R1)+ 


; VECTOR ADDRESS 




RTS 


PC 


•RETURN 



103 
126 



MRMCS1: .ASCIZ 
MRMVEC: .ASCIZ 



aRMCS1-a 

aRMVEc a 



t.NUH - ( MFC*. •«uHB€«» :C-'A;. ■ 



I? 
1 
<• 

5 

6 

8 
9 



0461 U 0102^6 

'4 1X6116 0103A6 

15 046120 010AA6 

16 046122 0V703 000006 
^7 046126 005002 

'8 046150 112104 

19 046132 001424 

20 C46154 120427 000060 

21 046140 103425 

22 046142 120427 000067 

23 046146 101022 

24 046150 006302 

25 046152 103420 

26 046154 006302 

27 046156 103416 

28 046160 006302 

29 046162 103414 

50 046164 042704 Mlll^ 

51 046170 060402 
12 046172 005303 
55 046174 001401 

54 046176 000754 

55 046200 112104 

56 046202 001004 

37 046204 005702 

38 046206 001401 

39 046210 010210 

40 046212 005725 

41 0462K 012604 

42 C46Z16 012603 
45 046220 012602 
44 046222 000205 
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SBTTl Ck.NLW - CHECK Nl«ER fOCTAL) 

THIS ROUTINE CHECKS AN ASCIZ STRING fOft LEGA: CHARACTERS 
AND FORMS AN OCTAL MMR IN R2 

CAlL : 

MOV #ADR.R1 .-ADDRtSS Of ASCI7 STRING 

RO=ADDRESS TO STORE THE NlfBER 
JSR R5.CK.NUM 
RETT ERROR RETURN 
RE 12 NORMAL RET 



CK.N'JM: 


MOV 


R2.-(SP) ; 


SAVE R2 




MOV 


R3.-(SP) 


.•SAVE R3 




MOV 


R4.-(SP) 


SAVE R4 




MOV 


#6.R3 


MAX OCTAL DIGITS IN THE NUMBER 




CLR 


R2 


FINAL OCTAL VALUE 


-$: 


Move 


(R1)*.R4 


GET CURRENT POINTED BYTE 




9EQ 


3$ 


BR IF TERMINATOR DETECTED 




CMPS 


R4.#'0 


SMALLER THAN ASCII-0 ? 




BLO 


51 


YES. ERROR EXIT 




CW»8 


R4.**7 


LARGER THAN ASCI 1-7 ? 




BHI 


5$ 


■YES. ERROR EXIT 




ASL 


R2 


•SHIFT LEFT 




BCS 


5$ 






ASL 


R2 


■ONE 




BCS 


5S 






ASL 


R2 


•OCTAL DIGIT 




BCS 


ss 


; ERROR IF CARRY BIT SET 




BIC 


#1 77770. R4 


;CHOP OFF HIGHER BITS 




ADD 


R4.R2 


■APPENDING C'JRRENT DIGIT 




DEC 


R3 


.•DECREMENT BYTE COUNT 




BEQ 


2$ 


;8R IF LAST DIGIT 




BR 


IS 


; LOOPING BACK 


2$: 


M0V8 


(R1)*.R4 


;CHFCK TERMINATOR 




8NE 


5$ 


;8R IF NOT FOUND 


3$: 


TST 


R2 


; FINAL VALUE - 0 ? 




BEO 


4( 


;YES 




MOV 


R2.(R0) 


; REPLACE THE ORIGINAL VALUE 


4$: 


TST 


(R5)* 


;ADJUST FOR NORMAL RET 


5$: 


MOV 


(SP)».R4 


.RESTORE 4 




MOV 


(SP)*.R3 


.•RESTORE R3 




MOV 


(SP>*.R2 


.RESTORE R2 




RTS 


R5 


.•EXIT 



c u 

'■^k^ATik rA'.^.: ,C-..JC i-AP«*-3' '8: 5^:->fc PAGE S? 

.S8TTL READ/WRITE BUFFERS 
3 ;8UFFE« STARTS MERE 

5 fXta?* OOOOOO 000000 OOOOOO R8Uf: .WORD 0.0.0,0 ;8UfFER FOR HEADER (HECK 

7 0<A?14 BUFP: .8LKW <258.»?2.> .FORMAT AND CHECK BUFFER STARTS MERf AND 

• O**^** ;yaL OVERLAY ALL REHAINING CODE IN PROGRAM 

9 i064?4 BUFV: .8LKW <258.*52.> ;8UFFER FOR VERIFV ONL* «00E 

n 000200 .END 200 



I 



L 









*\a:«c .c*..-^ 






'ABLE 








AfiASE = 


1 76700 


AS«3A 


011514 


BU^P 


ABORT 


0^222b 


ASWREG= 


000000 


BUF V 


ACDU1 = 


000000 


ATA = 


100000 


BUSADR 


A Dw2 =^ 


000000 


A'ABIT 


030444 


BVTE16 


AC»^ = 


000123 


ATEST'^= 


000000 


BVTE18 


Af PJ0P= 


000000 


ATTN 


001 370 


c 


Af TDRV 


030AOA 


ATO 


000001 


CALIN 


ArTSTR 


050A05 


ATI = 


000002 


CHGADR 


ADDRIS 


037506 


AT2 = 


000004 


cn 


ADDWO - 


000000 


AT3 = 


000010 


CI3 


AD0W1 = 


000000 


AT4 = 


000020 


CI4 


AD'DWlO= 


000000 

w www 


ATS 


000040 


CIS 


ADDWl1= 


000000 


AT6 = 


000100 


CJ6 


ADDW1^= 


000000 


AT7 = 


000200 


CI7 


ADDW13= 


000000 


AUNJT = 


000000 


CI 78 


ADDWK= 


000000 


AJSWR = 


000000 


CIS 


ADDWl 5= 


000000 


AVECT1= 


000254 


CKSWR = 


ADDW2 - 


000000 


AVFCT2= 


000000 


CKTRK 


ADDW3 = 


000000 


A16 = 


000400 


CK.CHR 


ADDW4 = 


cooooo 


A17 = 


001000 


CK.DEC 


ADDW5 = 


000000 


BADEN r 


037174 


CK.DI6 


ADDW6 = 


000000 


BAD SEC 


001344 


CK.NUM 


ADDW7 = 


000000 


BADTMO 


006730 


CK.OCT 


ACDU8 = 


000000 


BAI 


000010 


CLOCK 


A0DU9 = 


000000 


BITO = 


000001 


CLR = 


ADEVCT= 


000000 


BITOO = 


000001 


CLROUE 


ADEVM = 


000000 


BIT01 = 


000002 


CNTLC 


ADRTBL 


006064 


BIT02 = 


000004 


COLON 


AENV 


000000 


BIT03 = 


000010 


cpsave 


AENVM = 


000000 


BIT04 = 


000020 


CR = 


Af ATAL = 


000000 


BJT05 = 


000040 


CRLF - 


AH4DR1 = 


000000 

w w v w w w 


BIT06 = 


000100 


C.ENTR 


AMADR2= 


000000 


BIT07 - 


000200 


DCK 


AWADR3= 


000000 


BIT08 = 


000400 


DDISP = 


AMADR4= 


000000 


BIT09 = 


001000 


DDRI VE 


AMAriS1 = 


000000 

W w W 


BIT1 = 


000002 

W V V V V w 


DEVMP 


AMAnS2= 


000000 

W W W w w w 


BIT10 


002000 

W W w W W W 


DF1 


AMAMS3= 


000000 


BIT11 - 


004000 


DF10 


mAfiS^- 


000000 


BJT12 = 


010000 


DEI 7 


AMSGAD= 


000000 


BIT13 = 


020000 


DF2 


AMSGLG= 


000000 


BJT14 = 


040000 


DF20 


AWSGTY= 


000000 


BJT15 = 


100000 


DF 23 


AMTYP1= 


000000 


BI T2 = 


000004 


DF24 


A»1TYP2= 


000000 


BJ T3 


000010 


Df 2S 


AMrYP3= 


000000 


BJ T4 = 


000020 

W V W w W 


DF3 


AMTYPA= 


000000 


BITS = 


000040 


DF4 


AOE = 


001000 


BJ T6 = 


000100 


DF6 


APASS = 


000000 


B] T7 - 


000200 


DHl 


APRJOR= 


000000 


Bi T8 = 


000400 


DHIO 


APTCSU- 


000040 


BIT9 - 


001000 


DHl OA 


APTENV= 


000001 


BLNKS1 


036622 


DHl 013 


APT«;iZ= 


000200 


Bl NKS2 


036621 


DHl 7 


APTSPO= 


000100 


BLNKS3 


036620 


DH2 


askO 


010714 


BLNKS4 


03661 7 


DH20 


ASKi 


01 1000 


6PTVEC= 


000014 


DH20A 


ASK? 


01M24 


BSE 


100000 


DH20B 


A^r 5 


C''444 


BSFAVL 


001404 


DH20C 



046234 


DH23 


045015 


F«11 


043052 


106434 


DH24 


045054 


E«12 


045110 


0457S6 


DH25 


045227 


EI>I13 


045153 


006264 


Dh3 


044054 


fH14 


043174 


006364 


DH4 


044 12S 


EM15 


043217 


03661 3 


DH6 


044210 


EH16 


045265 


012706 


DISPLA 


001156 


Eni7 


043^35 


001374 


DISPRE 


0001 74 


En2 


042520 


051 734 


DLT = 


100000 


EM20 


043413 


032042 


DMD = 


000001 


EM21 


043451 


032150 


DONE 


016366 


EM22 


043522 


032526 


DPINT 


030360 


EM23 


043572 


032550 


DPR = 


000400 


CW24 


04 3642 


032564 


DPRQS 


030370 


EI>125 


043664 


032606 


DRIVE = 


001222 


EM3 


042556 


032664 


DRO 


004000 


EK4 


042614 


104407 


DRVACT 


030330 


EMS 


04^:651 


014344 


DRVCLR= 


0001 1 1 


EM6 


042705 


023120 


DRVINT 


030700 


EM7 


042760 


023072 


DRVOUE 


036242 


ENTADR 


036624 


023172 


DRVSTA 


030340 


ERINDX 


016550 


046114 


DRVTYP 


030350 


ERR 


040000 


023044 


DRY = 


000200 


ERROR = 


104000 


017616 


DSUR = 


177570 


ERRVEC= 


000004 


000040 


DS.CYL 


001362 


ES.SAV 


036406 


036144 


DS.TRK 


001364 


FER = 


000020 


001372 


DTE 


010000 


F ILLZ 


026770 


036604 


DTSY = 


000200 


FILLO 


027076 


023754 


DTUW 


030442 


FMT 


010000 


00001 5 


DTOO = 


000001 


FMTDP8 


005540 


000200 


DT01 = 


000002 


FMTWRT 


005630 


017630 


DT02 = 


000004 


FMT16 = 


010000 


100000 


DT03 = 


000010 


FUNCT1 


021272 


177570 


DT04 = 


000020 


FUNCT2 


021414 


001366 


DTOS = 


000040 


FUNCT3 


021624 


001400 


DT06 - 


000100 


FUNCT4 


021676 


045642 


DT07 


000200 


FLJNCT5 


021 77A 


045666 


DT08 


000400 


FUNCT6 


022112 


045702 


DTI 


045270 


FUNCT7 


022230 


045646 


DT10 


045366 


FUNCT8 


022350 


045706 


DT17 


045440 


F1 


000002 


045726 


DT2 


045306 


F2 


000004 


045 732 


DT20 


045452 


F3 


000010 


045752 


DT23 


045534 


F4 


000020 


045652 


DT24 


045544 


F5 


000040 


0456S6 


DT25 


045632 


GETREG= 


000141 


045662 


DT3 


045322 


GETREQ 


036316 


043734 


DT4 


045336 


GO 


00000' 


044223 


DT6 


045354 


GTSWR = 


104406 


044310 


DT7 


045556 


HCE 


000200 


044374 


DVA = 


004000 


HCI 


002000 


044452 


ECH = 


000100 


HCRC = 


000400 


044002 


EC] = 


004000 


HDRBI T 


001410 


044521 


EMPTYO 


036222 


HDRSET 


015010 


044570 


EMTVEC- 


000030 


HEDERR 


001354 


04466S 


EM1 


042446 


HT = 


000011 


044761 


EMIO 


043034 


lAE = 


002000 
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023756 


WE 


00040C 


PFECH3 


024360 


RE JEND 


016554 


SC6 


033610 


IE = 


000100 


KRD 


000020 


PFECH4 


024370 


RELSE - 


000113 


SC6A 


033724 


l^f - 


0OOOC1 


MRMCSi 


046076 


PFTSTN 


024 574 


REPLZ 


026774 


SC7 


034(5? 


IlR = 


000002 


MRMVEC 


046105 


PGE 


002000 


RESET 


020754 


SC8 


034130 




042U3 


MSCMPT 


037427 


PGM = 


001000 


RESREG= 


104413 


SEARCHs 


000131 




0A2100 


MSELD 


037021 


PIP = 


020000 


RESTRT 


017522 


SECCU 


0OS434 


INSERT 


021160 


nSFQR 


037315 


PIRQ = 


1 77772 


RESVEC= 


000010 


SEC 30 


001356 


luTvErr 


000020 


MSG8LK 


037740 


PI ROVE = 


000240 


RE TSAD 


011644 


SEE*. = 


000105 


la £ 


000100 


MSG1 3A 


04H50 


POPQUE 


036340 


RETRY 


001 342 


SEEKFG 


030420 




0331U 


MSIMIT 


042033 


PRO 


000000 


RMADR 


030456 


seldrv= 


000145 


. f = 


000012 


MSIZE 


041771 


PR1 = 


000040 


RMAS - 


000016 


SERNL 


012356 


lOOEv 


036*121 


MSPRM 


042362 


PR2 = 


000100 


RMBA = 


000004 


SET8SF 


020410 




0166A6 


MSQVER 


037337 


PR3 = 


000140 


RMCS1 = 


000000 


SETDPS 


0167U 




002000 


MSTCK = 


000010 


PR4 


000200 


RMCS2 = 


000010 


SETFMT= 


000145 




001324 


MSVER 


037576 


PR5 = 


000240 


RMDA = 


000006 


SETHDR 


017120 


MADRER 


037215 


M'JNIT 


036573 


PR6 = 


000300 


RMDB = 


000022 


SETvEC 


010100 


»MNTER 


022702 


MUSDR 


036751 


PR7 


000340 


RMDC = 


000034 


SE I . IE 


055600 


MAXCVL 


001326 
001360 


MljTLTy 


040521 


PS = 


177776 


RMDS = 


000012 


SKI = 


040000 


MAX SEC 


M^ERFV 


057062 


PSEL = 


002000 


RMDT = 


000026 


SLASH 


056607 


MAJrTRK 


001 332 


MUC 


001552 


PSU 


177776 


RMEC1 = 


000044 


SNGSEC 


001522 


MfLf^ = 


000002 


MWR 


000040 


PWRVEC= 


000024 


RMEC2 = 


000046 


SOF SW 


001516 


«rpE = 


020000 


MXF 


001000 


QCNT 


035652 


RMERRS 


050520 


S0RT1 


013474 


M''f EMX 


030A54 


MXUNDW 


050464 


ODRVO 


03574-'. 


RMER1 - 


000014 


S0RT2 


020250 


MDRNP 


036675 


M16eiT 


057106 


QDRV1 


035764 


RMER2 - 


000042 


SRCHUT 


030402 


KCRII 


036722 


M188IT 


037141 


QDRV2 


036004 


RMHR = 


000036 


STACK = 


001100 


IE SGI 


037533 


NBA = 


100000 

010000 


0DRV3 


036024 


RMINIT 


030466 


STARS 


0'.2425 


MESG10 


OAIKO 


NED 


0DRV4 


056044 


RMLA - 


000020 


START 


007012 


ME SG1 1 


OA 1224 


NEM 


004000 


QDRV5 


056064 


RMMR1 - 


000024 


START! 


007020 


ME SGI 2 


041310 


NEXT 


005556 


QDRVf> 


056104 


RM1R2 = 


000040 


STCLKl 


017456 


MfSG13 


041374 


NOENTR 


042206 


QDRV7 


056^24 


RMOF = 


000052 


STCLK2 


017506 


Mf SGU 
MEGG15 


041502 


NGINIT 


042514 


QJNPT 


055662 


RMR = 


000004 


STCLK5 


017512 


041513 


NOTPRS 


056474 


OOUTPT 


055702 


RMSN = 


000050 


STKLMT= 


177774 


MFSG16 


041563 


NOTRM 


056455 


QSTART 


055722 


RMTMR 


034476 


STO 


054566 


ME SGI 7 


041563 


NOTSAf 


056511 


QSTOP 


035724 


RMVEC 


050460 


STOl 


034622 


Mf «;gi8 


041630 


NOUPOr 


042255 


QTERM 


056144 


RMWC = 


000002 


ST02 


034716 


ME SGI 9 


041665 


NUMERR 


057442 


R8'JF 


046224 


RM.REG 


005560 


ST03 


034746 


MES&2 


037572 


OFDIR - 


000001 


RDCHfi = 


104410 


RM05 


031214 


ST05 


034772 


MESG3 


037643 


OFFSET 


0001 1 5 


RDDAT = 


000171 


RTC 


0001 1 7 


ST06 


035000 


MESGA 


037704 


OPI 


020000 


RDHD = 


0001 73 


R6 


X000006 


ST07 


035036 


MFSG5 


040564 


OPT 


031 506 


RDLIN = 


104411 


R7 


1000007 


ST08 


035066 


Mt SG6 


040642 


OR 


000200 


RDY 


000200 


SAVEFG 


030416 


ST09 


055076 


MFSG7 


040720 


O.ENTR 


017642 


RD.ACR 


035134 


SAVREG- 


104412 


ST.CLK 


01 7560 


MtSG8 


040776 


PACKSN 


057475 


RD.RM 


035110 


SAVWC 


001346 


STl 


010446 


Mf SG9 


041054 


PAR 


000010 


RD.RM1 


055132 


SC 


033326 


ST2 


011566 


MF = 


100000 


PARENT 


020052 


RD . RM2 


035256 


SCAWC 


017072 


ST3 


015056 


MFG16 


001414 


PAR"" 


005754 


RD . RM3 


035262 


SCOPE - 


000004 


SVRM70 


055462 


MFG18 


002420 


PAR2 


005764 


RD . RM4 


055266 


SC01 = 


000100 


SUR 


001154 


MFORMT 


057035 


PAR3 


005774 


RD . URD 


035156 


SC02 = 


000200 


SUREG 


0001 76 


MINCYL 


001350 


PAR 4 


006004 


READJN- 


000121 


SC04 = 


000400 


SWO 


000001 


MINTRK 


001554 


PAR5 


006014 


RECAL - 


000107 


SCIO = 


001000 


SWOO = 


000001 


MINX = 


000004 


PAR6 


006052 


RECORD 


020146 


sen 


054160 


SWOI = 


000002 


ML ODE V 


036771 


PAT 


000020 


REJCT1 


016430 


SC12 


054270 


SU02 = 


000004 


"WOOE 


041732 


PATA 


001336 


REJCT2 


016442 


SC13 


034340 


SU03 = 


000010 


MODE 


001320 


PAT8 


001340 


REJCT3 


016464 


SC20 = 


002000 


SU04 = 


000020 


MOf Fi N 


036654 


PFECH 


024254 


REJCT4 


016476 


SC3 


033576 


SU05 = 


000040 


Ml)»( 


020000 


PFECHl 


024244 


REJCT5 


016510 


SC4 


055402 


SW06 = 


000100 


Mf . 
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AMAMSl 


6-0 


6-0 




AMAWS2 


6-C 


6-0 




AnAMS3 


6-0 


6-0 




AMAMS4 


6-0 


6-0 




AMSGAD 


6-0 


6-C 





45-692» 45-700* 45-987 



19-1 24-194 
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AMSCjLG 
AMSGTV 

AMTVP5 

A«TVP4 

AOE 

APASS 

APRIOR 

APTCSU 

APTENV 

APTSIZ 

APTSPO 

ASKO 

ASK1 

ASK2 

ASK 5 

ASK3A 

ASUREG 

ATO 

ATI 

Ar2 

AT5 
ATA 
AT5 
AT6 
AT7 
ATA 

ATABIT 

ATESTN 

ATTN 

AUNIT 

AUSWR 

AVECT1 

AVECT2 

BADE NT 

BADSEC 



BADTMO 

BAI 

BITO 

BITOO 

BITOT 

b:to2 

BIT03 

B1T04 

BIT05 

B1TO6 

BIT07 

BIT08 

BIT09 

BIT! 

BITTO 

BiTn 

BIT12 



6-0 
6-0 
6-0 
6-0 
6-0 
6-0 

4-1 A 7# 

6-0 

6-0 
32-1 
29-1 

9-26 
32-1 
10-6 
10-89# 
10-1 17# 
10-178* 
10-19A# 

6-0 

A-167* 
4-168* 
4-1 69# 
4-1 70* 
4-171* 
4-172* 
4-1 73* 
4-174* 

4-!34# 
9-132 

6- 0 

7- 0* 
6-0 
6-0 

4-264# 

6- 0 
10-81 

7- 0 
19-1* 
49-13 

9-3* 
4-94* 
4-68* 
4-68 
4-68 
4-68 
4-68 
4-68 
4-68 
4-68 
4-68 
4-68 
4-68 
4-68* 
4-68* 
4-6fe* 
4-68* 
45-;6' 



6-0 
6-0 
6-0 
6-0 
6-0 
6-0 

6-0 

41-1* 

3?-1 
41-1* 
41-1 
10-8 
10-101 
10-127 
10-191 
10-205 
6-0 



10-40 

6-0 
29-1* 

6-0 

6-0 

6-0 

6- 0 
10-100 

7- 0 
19-1* 
49-18 

9-28 



4-68* 
4-68* 
4-68* 
4-68* 
4-68* 
4-68* 
4-68* 
4-68* 
4-68* 
4-68* 
17-3 
21-16 
21-16 
21-13 
45-<44 



41-1 

41-1# 
10-67# 



10-48 
49-3 

6- 0 

10-126 

7- 0 
21-316 
49-22 



29-1 
21-43 

45-850 

21-22 

45-866 

45-329 

45-329 

21-19 

21-19 

21-10 

21-43 

45-282 

21-43 



41-1* 



10-135 10-148 10-153 10-156 19-11 



45-145* 45-319 4'^-411 
49-4 



10-190 
7-0* 
22-89 



29-1 
45-391 

45-; 72 
45-886 

45-382 
45-59'' 
45-329 
29-1 

29-1 

45-418 

45-276 



12- 66 

13- 35* 
22-95 



45-656 



45-455 
45-712 

29-1 

45-658 
45-619 
45-310 



45-516 45-896 45-924 45-932 45-933 45-955 45-: 52 



21-200 
16-16* 
23-17 



21-283 24-206 27'27 kh-^i^i* 
16-18* 16-19* 16-20* 16-52 
23-25 2k-2l2 2i^'22k 21,-229* 



16-53 
24-232* 



17-14* 
24-234 



19-1 
24-239* 



19-1 
49-12 



45-735 
45-850 

4 5-: 40 



45-973 
45-329 



45-<43 
45-866 



45-886 45-928 45-<04 



45-393 45-426 45-609 45-654 45-670 45-876 45-878 45-; V 
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b! V 

BIT4 

BITS 

BIT6 

BV7 

BITS 

BIT9 

BL^iKS1 

RLNKS? 

BLN«(S3 

BLK«(S4 

BPTVEC 

BSE 

BSFAVL 
BUFP 



BUFV 

3USA0R 

BVTE16 

avTEia 
c 

C.ENTR 

CALlN 

CHGADR 

cn 

C13 
CI4 
CIS 
CI6 
CI/ 

CI 78 
CIS 

CK.CHR 

CK.DEC 

CK.DIG 

CX.NUM 

CK.OCT 

CKSMR 

CKTRK 

CLOt'K 

CLR 

ClROUE 

CNTLC 

COLON 

rPSAVE 

fR 

trlf 



4-68# 
4-68* 

45- 619 
4-68# 
4-68# 
4-68# 
^.-68* 
4-68# 
4-6S4r 
4-68* 
4-6S* 

U-10 
9-134 

46- 20* 
9-104 
4-68* 
4-228* 
7-0* 
7-0 
7-0 
7-0 

11-135 

22-46 

18-16 

9-72 

7-0* 

7-0* 
21-24/ 
10-117 
13-5* 

7-0* 
45-445 
45-447 
45-439 
45-495 
45-535 
45-378 
45-568 
45-624* 
45-627 
10-124 
28-28* 
21-280 
51-24 

28- 10* 

29- 1 
16-6* 
21-164 

4-96* 

45- 216 
7-0* 

10-121 

29-1 
4-68* 
4-68* 

46- ?3 



21-10 

17-n 

12-25 

45-656 

21-10 



10-7 



46-22* 

21- 251 

46-19* 

18-71 
11-24* 

7-0 

7-0 

7-0 
11-141 

22- 49 
53-9* 
51-13* 
24-224 
24-234 
46-17* 
21-214* 



21-43 

17-13 

12-43 

45-658 

45-:84 



29-1 
21-10 
15-123 
45-735 



45-376 
21-43 
15-138 
45-850 



45-821 
45-388 
15-142 
45-866 



45-; 15 
45-423 
15-157 
45-876 



45-806 
15-172 
45-8S6 



45-96*) 
45-376 
45-966 



45-: 76 
45-388 
45-: 40 



45-;22 
45-^91 
45-: 76 



45--?6 
45-^93 
45-: 84 



24-200 30-51 



i1-86« 

7-0 

7-0 

7-0 
14-25 
22-53 



11-114 

7-0 

7-0 

7-0 
15-115 
22-56 



30-60 



12-6 
7-C 
7-0 
11-29 
18-^5 
53-7* 



30-71 



15-36 
7-0 
7-0 

11-69 

19-1 



46-21* 51-21 



15-63* 

7-0 

7-0 
11-73 
21-56 



7-0 

7-0 
11-75 
21-103 



51-30 



7-0 

7-0 
11-77 
21-124 



7-0 

7-0 
11-79 
21-149 



7-0 
7-0 
11-81 
22-12 



7-0 
7-0 
11-84 
22-26 



7-0 7-0 

7-0 7-0 

11-118 11-126 

22-40 22-43 



21-215 21-245 



9-18* 


51-13 


51-15* 












45-473* 
















45-497* 
















45-519* 
















45-517 


45-597* 


45-607 












45-545 


45-54/ 


45-'549 


45-603* 










45-454 


45-485 


45-489 


^,5-493 


45-502 


45-511 


45-515 


45-527 


45-578 


45-589 


45-606 


45-609* 


45-716 


45-911 


45-<16 




45-917 
















45-641* 


45-770 


45-:67 












28-50* 


28-87 


28-95 












28-56 
















24-192 


27-17 


27-20 


27-23 


28-81* 








51-33 


52-13* 














28-58 
















29-1 


43-1* 














21-174 


21-208* 














9-93 


10-140 


45-234 


45-681 










45-680 


45-<95* 














9-67* 


10-117* 


21-245* 


31-1 


31-1 








46-15* 
















29-1 


29-1 


29-1 


29-1 


29-1* 


29-1* 


29-1* 


30-79 


32-1 


32-1 


48-17 












9-6 


9-31 


9-31 


9-45 


9-56 


9-62 


9-63 


32-1 


46-24 


46-25 


46-26 


46-27 


46-28 


46-32 


46-33 


46-34 



45-534 45-540 4;)-5h4 45-558 45-56; 



32-1 
46-35 



44-2 
46-36 



46- ■'2 
46-57 



46-13 
46-37 



46-23 
46-38 
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46-38 


46-39 


46-39 


46-40 


46-44 




46-53 


46-54 


46-55 


46-56 


46-57 




46-67 


46-67 


46-68 


46-68 


/ y 7A 

46-70 




46-81 


46-81 


46-83 


46-83 






4-153* 


16-53 








DDISP 


4-68* 


6-0 


9-26 




49-6 


DDRIVE 


7-0» 


29- 1» 


49-4 


49-5 


DEVMP 


7-0* 


9-99* 


9-1 32* 


9-1 55 


9-1 55* 


19-1 » 


21-233* 


21-234* 






DF1 


3-7 


50-3* 




O 7 7 

8-^7 


o o/ 


DF10 


8-56 


8-63 


8-70 


OF 17 


8-105 


50-19* 








OF 2 


8-14 


50-5* 








DF 20 


8-112 


50-21* 








DF23 


50-29* 










DF?4 


8-140 


50-51* 




C /\ 70m 

50-59* 




DF25 


8-49 


8-1 33 


8-147 




DF3 


8-21 


50-7* 








OF 4 


8-28 


50-9* 








DF6 


8-42 


50-1 1* 








DHl 


8-5 


48-3* 






O O 0 


OHIO 


8-54 


8-61 


8-68 


O 7C 


OHiOA 


48-9* 


50-15 








DHl 08 


48-10* 


50-17 








0H17 


8-103 


48-1 1* 








DH2 


8-12 


48-4* 








DH20 


8-110 


48-12* 








DH20A 


48-1 3* 


50-23 


50-55 






0H20B 


48-14* 


50-25 


C A 7 C 

50-55 






DH20C 


48-1 5* 


50-27 


50-5'' 






DH23 


8-47 


8-1 31 


48-16* 






DH24 


8-1 58 


48-1 7* 








DH25 


8-145 


48-19* 








DH3 


8-1 9 


48-3* 








DH4 


8-26 


48-6* 








DH6 


8-40 


48-7* 








DISPLA 


6-0* 


9-26* 


9-t:6* 


29-1 ♦ 




OISPRE 


5-1* 


9-26 








dlt 


4-106* 










DWD 


4-1 57* 










DONE 


19-1 


19-1 


19-3* 




43-i'yU 


DPINT 


45-61* 


45-245 


45-248 


/ C ICQ 


DPf< 


4-127* 








45-629* 


DPRQS 


45-^0* 


45-364 


45-412* 


45-449* 


DRIVE 


7-0* 

49-22 


10-47" 


10-1 29* 


1 A ICQ 




DRO 


4-190* 








45-631* 


DRVACT 


45-30* 
45-:45* 


7-»'^ 

45-372 


45-552* 


45-600* 


DRVCLR 


4-246* 










DRV INT 


45-236 


/ r 7/\ M 

45-270* 


45-560 


A5-V45 


45-y5V 


DR VOUE 


45-367 


/ r 7aA 

45-580 


45-=35* 




H J CC\J 




T— 1 U J 




1 (1-1 




45-362 


45-386 


45-420 


45-424 


45-553* 
10--65 


DRVTrP 


9-109 


9-156 


10-57 


10-150 


ORy 


4-126* 








13-33* 


OS.rvi 


7-0 


7-0 


7-0 


7-0* 



46-45 
46-58 
46-71 



46-46 
46-59 
46-72 



46-47 
46-60 
46-75 



46-48 

46-61 
46-76 



46-48 
46-62 
46-77 



46-49 
46-63 
46-78 



46-50 

46-64 
46-79 



46-51 
46-65 
46-80 



9-151* 10-12* 10-13* 10-18 10-40 10-48* 19-' 



SEO 0156 

46-52 
46-66 
46-80 



19-1 



8-91 



8-98 



8-119 8-126 50-13* 



8-89 



8-96 



8-117 8-124 48-8* 



45-817 45-956 45-958* 45-:31 45-:54 



14-8 



45-664* 
21-55 



45-793 
22-91 



45-: 33 
49-8 



45-: 56 
49-9 



45-663* 45-705* 45-813 45-848 



45-:60 45-:70* 

49-17 

45-880* 45-888* 45-X8 



45-:62 
49-12 



45-: 80* 
49-13 



45-227* 
45-684* 
45-52* 

23-^3 



45-228* 45-229* 45-259* 45-271* 45-281* 45-325* 45-331* 
45-796 45-804 45-819 45-874* 45-881* 45-897 45-%1 
45-272* 45-288* 45-293* 45-298* 45-303* 45-389 '.5-685* 



49-18 
45->#23« 



45-354 
45-: 7' • 



23-23 



24-16 



24-29 24-62 24-75 ^4-2i9 29-'* 4V- 
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iLQ_1 3 
1 C 


•tTT— 3 


■f 7— ■ V 




'""'J 

49-21 


'— U 
^0-37 


7-0 


^' ^ 


«•— OO* 




z — Cv 


r> » r 


••— 1 0 








<»— 1 Ot • 








*• — 1 O 5* 






U 1 J 3 






PvT 1^ 


1 O^" 














V ' 








r\Tf\7 


' CO* 






f»TAfl 


*# — 1 C 






1 r> T 1 


CO 






17 1 1 u 


O J J 


o DC 


O v»— 


r»T 1 7 




T I C — 




ftT 5 
U 1 C 


O 1 J 






IP 1 rU 


O 1 ■ ' 






fNT51 


O 1 JC 






I^T 

U 1 < 


fl_1 XQ 

O 1 3t 


^Q-1 Air 




l> 1 f > 


O 1 •♦O 


A0-77ir 




y 1 J 


O Cv 


4Q-Sir 




nil. 










fl«41 
o— *» 1 








R-4fl 






y ' t 








HT? V 

1/ 1 J " 


%— 1 






U 1 uw 


/.C.I zQir 


H J C C C 






4-1 ?1<f 

Hit ' ^ 








/-CM 








i-?1 






CM1 


O 


H f 




CM1 o 

C~ 1 w 








PM1 1 

cn M 


O Ow 


C7~') 1* 




FM1 7 


O O' 


47-1 P* 




cn 1 7 


fl-74 


47-1 Xxr 




EMU 


O O t 






c n 1 ^ 


o oo 


4 7-1 




t n 1 0 








rMi 7 


s-in? 

O 1 \JC 






tnt 
r ncU 


A-1 1 






fl-1 HQ 


4 7- 1 R* 






A-1 1 A 


4 7-19* 




CM77 


A-1?X 

0 1 CJ 


L7^?CiU 

H f CV^ 






A-1 XO 


47-P1# 




C~t** 


A-1 ?7 

O 1 J' 








A-1 44 






t n J 


A-1 A 








O CJ 






r m 








PNK 

r no 


A- ^9 






PM7 


R-4A 






EflPTYO 


45-638 


45-685 


45-736 


EMTVEC 


4-68* 


9-26* 


9-26* 


ENTADR 


10-194 


46-23* 


18-50 


ERINDX 


15-205 


16-22 


ERR 


4-155# 


16-46 


18-53 



49-18 
7-0* 



49-21 
15-34* 



20-9« 



25-15 25-24 29-1* 49-11 49-12 49-13 49-16 49-18 



8-76 



8-83 



8-90 



8-97 



8-118 8-125 49-9* 



45-494* 45-638* 45-649 45-665 45-667* 45-678* 45-695 45-706* 45-: 56 45-:48* 45-;20 



45-: 85 45-20* 



19-^ 



21-5* 



5 f<EfE«itfNCE TABLE (CREF J 



C 13 

A-APC-g' '8: 39: St PAGE S--» 



f B=c > 

f .SA. 
f ' 

^2 
f 3 

f S 

f ILLO 
MLLZ 
f MT 

f MTDPfi 



fUNCTI 
'UNf T2 
fUNCT3 
FUNf T4 
FUNCT5 
fUNCT6 

FUNCT8 
GETREG 
GETRECl 
GNS 



GO 

C'SWR 

HCE 

HCI 

HCRC 

HDRBIT 

HORSE T 

hEDERR 

HT 

ME 

IBSAVE 
IE 
ILF 
ILR 

INITUS 

INSERT 

lOTvEf 

IR 

ISR 



4-68* 
4-68* 

45-773 
4-116* 
4-117* 

;-n8* 

4-119* 
4-120* 
4-142* 

56-1 1* 

26-16 
4-240* 
4-214* 
7-0* 

11-45 

15- 119* 

16- 6* 
18-33* 
18-116* 
"9-1* 
21-56* 

21- 93* 

22- 101 
7-0* 

24-6* 

7-0 

7-0 

7-0 
24-127* 

7-0 

7-0 
24-215* 

4- 253* 
45-413 

5- 1 
45-1 
43-1 

4-115* 

9-31 

4-145* 

4-212* 

4-146* 

7-0* 

15-147 
7-0* 
4-68* 
4-148* 

29-1 
4-74* 
4-158* 
4-159* 

24-132 

24-162 

23- 8* 
4-68* 
4-97* 

45-231 



9-26 
45-851 



16-35 
56-15 
56-11* 
1b-82 

10- 158* 

11- 67 

15- 127 

16- 10 
18-54* 

18- 119* 

19- 1* 
21-57* 

21- 248 
29-1 

22- 91 * 

24-41* 
24-87* 
24-104* 

24-157* 
24-188* 



45-651 

5-1 
45-1 
45-1 

45-1* 
16-53 

16-33 

16- 41* 

17- 3* 

32-1 
29-1 



9-26* 
45-855 



11-25* 
15-8* 

15- 141* 

16- 12 
18-56 

18- 120 

19- 1* 
21-58* 

21- 254 
29-1 

22- 92* 



45-726 

9-6 
45-1 



18-65 

18-67 
17-7* 



52-1 
29-1 



46-77* 
46-76* 

24-18 24-31 



45-692* 



9-26* 

;5-;19 



9-28* 
45-; 78 



56-56* 56-59* 
21-110 22-98 



11-26* 
15-11* 

15- 143 

16- 53* 
18-38 

18- 125* 

19- 1* 
21-59* 

21- 504 
49-22 

22- 95* 



45-800 45-839 

9-31 9-45 
43-1 43-1 



22-90 



29-1 29-1 



9-29* 
45-=91* 



2i-''60* 2'-*6-* 21-1/'* 21-180* 29-1 



29-1 



.9-1. 



22-105 








11-27* 


11-28* 


11-29* 


11-30* 


15-12* 


15-14 


15-16 


15-21 


15-145 


15-163 


15-168* 


15-181 


16-55* 


16-63 


16-66* 


16-79 


18-41* 


18-43 


18-45 


18-78 


18-124 


19-1 


19-1 


19-1 


19-1* 


19-1* 


19-1* 


19-1* 


21-60* 


21-67* 


2-' -68 


21-75* 


21-506 


21-308 


21-314 


21-515 


22-94* 


22-95* 


22-96* 


22-97* 



45-910 45-965 45-: 39 

9-56 9-62 9-f3 
43-1 43-^ 43-1 



29-1* 



29-"* 



24-64 24-77 24-230 24-240 



29- 1» 



11-31* 
15-23 
15-186* 
18-17* 

18- 80 

19- 1 

20- 9 

21- 76* 

22- 82 



45-: 73 

43-1 

43-1 



29-1* 



11-32* 
15-48 
15-189 
18-18* 

18- 100 

19- 1 
21-8 

21- 77 

22- 84 



22-108 22-110 



45-: 81 

43-1 

43-1 



11-34 
15-50 
15-191* 
18-22* 

18- 102* 

19- 1* 
21-42 

21- 80* 

22- 88 



11-36 
15-113* 
15-193* 
18-26* 

18- 109* 

19- 1* 
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